¿Cómo puedo implementar Unix grep en Perl?
¿Cómo puedo implementargrep
de Unix en Perl? Traté de usar el Perl incorporadogrep
. Aquí está el código que no funciona:
$pattern = @ARGV[0];
$file= @ARGV[1];
open($fp,$file);
@arr = <$fp>;
@lines = grep $pattern, @arr;
close($fp);
print @lines;
Y por cierto, estoy intentando solo lo básicogrep
funcionalidad no con todas las funciones y, en segundo lugar, no quiero hacer el análisis de cadenas yo mismo. Quiero usar incorporadogrep
o alguna función de Perl.
Gracias por adelantado :)