perl在一个文件里搜索一个pattern
程序员文章站
2024-01-09 17:32:28
...
perl在一个文件里搜索一个pattern
#!/usr/bin/perl
open FH,'< ./input.file';
@lines = <FH>;
foreach $line (@lines)
{
print $line if $line =~ m/pattern/;
}