Problema al ejecutar un comando del sistema (system)

[neodani]

Iniciado por jferrero

Y... ¿no es mejor hacerlo en Perl? Así, no dependes de la ejecución de 3 comandos externos, y el código será más portátil y rápido.

Código Perl:

open my $FICHERO, "</etc/awstats/web/$file"
    or die "ERROR: No puedo abrir $file: $!\n";
 
while (<$FICHERO>) {
    next if /^\s*#/;    # obviamos los comentarios
    next if /^\s*$/;    # obviamos las líneas vacías o en blanco
    # ...
}
 
close $FICHERO;
 

Gracias, jferrero.

Sabes si puedo poner en el die estas 3 lineas, donde esta el die?

Código PERL:

or die "ERROR: No puedo abrir $file: $!\n";
 
        print colored(" [ERROR] >>> No existe el fichero introducido ",'bold red');
        print color 'reset';
        print "$file", colored(" en /etc/awstats/web/",'bold red'),"\n\n";
 

Gracias de antemano!