我正在尝试使用Perl解析文件。我想要在正则表达式匹配后打印所有行。
例如,文件内容如下:
例如,文件内容如下:
num_of_dogs,10,#start_reading
num_of_cat,15
num_birds,20
num_of_butterfly,80
.....
我想要匹配到#start_reading
后的所有行。
我尝试过这个方法,但它只会打印下一行:
while (my $line = <$csv_file>) {
next unless $line =~ /(.*),#end_of_tc/;
if ($line =~ /(.*)/){
print $file = $1;
}
}
输出将会是这样的:
num_of_cats,15
num_of_birds,20
......