Как я могу реализовать Unix grep в Perl?
Как я могу реализоватьgrep
Unix в Perl? Я пытался использовать встроенный в Perlgrep
, Вот код, который не работает:
$pattern = @ARGV[0];
$file= @ARGV[1];
open($fp,$file);
@arr = <$fp>;
@lines = grep $pattern, @arr;
close($fp);
print @lines;
И, кстати, я пытаюсь только основныеgrep
функциональность не полнофункциональная, и, во-вторых, я не хочу сам разбирать строки. Я хочу использовать встроенныйgrep
или какая-то функция Perl.
Заранее спасибо :)