perl实现多行模式匹配

因为grep不能匹配换行符，grep只能单行匹配字符串,但是可以通过-A等选项打印上下文环境；sed在读入一行的时候会自动去掉末尾的换行，所以sed在进行多行匹配的时候很复杂。这里使用perl，先把文件的全部内容读入，然后进行多行匹配。代码如下：

my $log_name = $ARGV[0];
open(FILE,"$log_name") or die "can't open $file $!n";
my $content = join("",<FILE>);
while($content =~ /<data>.*</data>n<user>hongchangfirst</user>n<msg><![ZHC]></msg>n/g)
{
? ? print $&,"n";
}
close(FILE);

这就可以把所有匹配的行都打印出来。

原文:http://www.voidcn.com/article/p-wcxhflsr-baq.html

作者:hongchangfirst

hongchangfirst的主页:http://blog.csdn.net/hongchangfirst