相关疑难解决方法(0)

如何grep在Perl中实现Unix？我试着使用Perl的内置功能grep.这是不起作用的代码:

$pattern = @ARGV[0];
$file= @ARGV[1];

open($fp,$file);

@arr = <$fp>;

@lines = grep $pattern, @arr;

close($fp);
print @lines;

顺便说一句,我只尝试基本grep功能不全功能,其次我不想自己做字符串解析.我想使用内置grep或Perl的一些功能.

提前致谢 :)