dryu999 发表于 2017-5-18 10:00:26

perl在一个文件里搜索一个pattern

perl在一个文件里搜索一个pattern

#!/usr/bin/perl
open FH,'< ./input.file';
@lines = <FH>;
foreach $line (@lines)
{
print $line if $line =~ m/pattern/;
}
页: [1]
查看完整版本: perl在一个文件里搜索一个pattern