Estoy haciendo un programa que me lee los logs continuamente; el problema lo tengo cuando quiero seleccionar las líneas. Por ejemplo, lo que sería en una línea de comandos normal:
cat /var/log/auth.log|grep failures|awk '{print $2, $3, $12}'
Me quedo solo con los campos 2, 3 y 12 de las líneas que contengan la palabra failure. Mi problema es que no sé cómo hacer este grep() con Perl, ya que cuando trato de hacer:
Using perl Syntax Highlighting
open (DATA,$log_file)
while ($line = <DATA>) {
`echo $line |grep failures|awk '{print $2, $3, $12}'`;
}
while ($line = <DATA>) {
`echo $line |grep failures|awk '{print $2, $3, $12}'`;
}
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
¡ me peta !
¿Me podéis ayudar? Hoy es mi primer día con Perl...
