请教perl的匹配多行

atlandis

[size=11.818181991577148px]

请教perl中如何摘取有某个关键词的段落，段落之间有空行，格式如下，比如删除所有有regfile.v的段落 代码没起作用，请教如何改正？ 代码： for my $file (@ARGV) {    my $content;    open(in, "$file");    $content .= $_ while <in>;    close(in);    if ($content =~ /[^-]*regfile[^-]*/s) {        print MYFILE "$content";     } } 原文： --------------------------------------------------------------------------------------------------- Type              : Violation TX File           : uart_conv.v:48 RX File           : regfile.v:2088 ID                : no_sync_23108 --------------------------------------------------------------------------------------------------- --------------------------------------------------------------------------------------------------- Type              : Violation TX File           : uart_conv.v:48 RX File           : regfile.v:2088 ID                : no_sync_23108 --------------------------------------------------------------------------------------------------- --------------------------------------------------------------------------------------------------- Type              : Violation TX File           : uart_conv.v:48 RX File           : afifo.v:2099 ID                : no_sync_32446 --------------------------------------------------------------------------------------------------- 期望的结果： Type              : Violation TX File           : uart_conv.v:48 RX File           :regfile.v:2088 ID                : no_sync_23108 Type              : Violation TX File           : uart_conv.v:48 RX File           :regfile.v:2088 ID                : no_sync_23108

atlandis

if ($content =~ s/([^-]*regfile\.v[^-]*)/<$1>/gm) {
       print MYFILE "$1";
    }
}
这个改了之后，发现只有最后一段符合要求的匹配段落被输出，请教如何将所有匹配段落输出？

atlandis

试出来了，呵呵

    @all_text=$content =~ /([^-]*regfile\.v[^-]*)/g;

    foreach(@all_text)
    {
    print MYFILE $_."\n";
    }

开不了口8099

多试试就好了