我该如何在Perl中实现Unix的
grep
命令?我尝试使用Perl内置的grep
,但以下代码无法正常工作:$pattern = @ARGV[0];
$file= @ARGV[1];
open($fp,$file);
@arr = <$fp>;
@lines = grep $pattern, @arr;
close($fp);
print @lines;
顺便说一下,我只是尝试基本的 grep
功能而不是完整的功能,其次我不想自己进行字符串解析。我想使用内置的 grep
或者 Perl 的某些函数。
提前感谢 :)