Wie kann ich implementierengrep von Unix in Perl? Ich habe versucht, Perls eingebautes @ zu verwendegrep. Hier ist der Code, der nicht funktioniert:

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

open($fp,$file);

@arr = <$fp>;

@lines = grep $pattern, @arr;

close($fp);
print @lines;

Und übrigens versuche ich nur grundlegendegrep Funktionalität nicht voll funktionsfähig und zweitens möchte ich nicht selbst String-Parsing machen. Ich möchte eingebautes @ verwendgrep oder eine Funktion von Perl.

Danke im Voraus :