如何恰好匹配两个空行

Question

我对正则表达式有疑问.我有一个文件,我需要以这样的方式解析它,以便我可以区分其中的一些特定文本块.这些文本块由两条空行分隔(有些块由3或1个空行分隔,但我需要2行).所以我有一段代码,这是\s*$^\s*$/我认为应该匹配的正则表达式,但事实并非如此.怎么了？

$filename="yu";
open($in,$filename);
open(OUT,">>out.text");
while($str=<$in>)
{
unless($str = /^\s*$^\s*$/){
print "yes";
print OUT $str;
}
}
close($in);
close(OUT);

干杯,尤利娅

Answer 1

默认情况下,Perl一次读取一行文件,因此您不会看到多个新行.以下代码选择以双新行终止的文本.

    local $/ = "\n\n" ;

    while (<> ) {

      print "-- found $_" ;
    }