perl在一个文件里搜索一个pattern
#!/usr/bin/perl
open FH,'< ./input.file';
@lines = <FH>;
foreach $line (@lines)
{
print $line if $line =~ m/pattern/;
}