Question

怎么用正则表达式匹配perl的多行注释？

perl里面的多行注释是这样的！例如
#!/usr/bin/perl -w
print "zc";
=pod
print "zczc";
=cut
从=pod到=cut 这个多行注释 我怎么匹配？

Answer 1

数据：
#A。。。。。。。。
#。。。。。。。。
#。。。。。。。。。。。
#。。。。。。。。B

if(/^#A.*B/s){
...
}
tip: /s可以使.匹配任意字符，包括换行符

追问

perl里面的多行注释是这样的！例如
#!/usr/bin/perl -w
print "zc";
=pod
print "zczc";
=cut
从=pod到=cut 这个多行注释 我怎么匹配？

追答

/^=.+cut/s

Answer 2

/\n(#.*?\n)+/

但是不匹配第一行，如果你需要包括第一行，可以：

/(#.*?\n)+/

追问

perl里面的多行注释是这样的！例如
#!/usr/bin/perl -w
print "zc";
=pod
print "zczc";
=cut
从=pod到=cut 这个多行注释 我怎么匹配？

追答

那就更简单了，你试试这个：

/(=pod.*?=cut)+/is

Answer 3

@a=<>
$_=join "",@a;
while(/(=pod(.*?)=cut)/mg){
}

Answer 4

/=pod.+?=cut/i