Problema al ejecutar un comando del sistema (system)

[neodani]

Buenos días,

Sabéis por qué no me valida esta orden perl?

Código PERL:

system("cat /etc/awstats/web/$file | grep -v '#' | sed '/^$/d'");
 

Me da error:

sed: -e expression #1, char 2: unterminated address regex

Gracias de antemano

[neodani]

Conseguido, faltaba escapar el último $

system("cat /etc/awstats/web/$file | grep -v '#' | sed '/^\$/d'");

Salu2!

[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;
 

[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!

[jferrero]

Código Perl:

open my $FICHERO, "</etc/awstats/web/$file"
    or do {
        print colored(" [ERROR] >>> No existe el fichero introducido ",'bold red');
        print color 'reset';
        print "$file", colored(" en /etc/awstats/web/",'bold red'),"\n\n";
        exit 1;
    };
 

Código Perl:

open my $FICHERO, "</etc/awstats/web/$file"
    or die
          colored(" [ERROR] >>> No existe el fichero introducido ",'bold red')
        . color('reset')
        . "$file"
        . colored(" en /etc/awstats/web/",'bold red')
        . "\n\n"
        ;
 

Hay varias formas...

[neodani]

Buenas,

Lo intento de la primera forma pero no me compila

syntax error at ./perl_first_webstats.pl line 90, near "print"
syntax error at ./perl_first_webstats.pl line 104, near "}"
Execution of ./perl_first_webstats.pl aborted due to compilation errors.

Código PERL:

81 sub Mostrar_Config_Actual {
 82     local $SITE_DOMAIN;
 83
 84     print "\n--------------------------------------------------------------------------------\n";
 85     print colored(" CONFIGURACION ACTUAL",'cyan'),"\n";
 86     print "--------------------------------------------------------------------------------\n";
 87     open my $FICHERO, "</etc/awstats/web/$file"
 88         or {
 89             print colored(" [ERROR] >>> No existe el fichero introducido ",'bold red');
 90             print color 'reset';
 91             print "$file", colored(" en /etc/awstats/web/",'bold red'),"\n\n";
 92             exit 1;
 93         }
 94
 95     while (<$FICHERO>) {
 96         next if /^\s*#/;    # obviamos los comentarios
 97         next if /^\s*$/;    # obviamos las lÃ*as vacÃ* o en blancoi
 98         print $_;
 99         }
100     close $FICHERO;
101
102     $SITE_DOMAIN=qx(grep -v '#' /etc/awstats/web/$file | grep -i SiteDomain | cut -d'=' -f2 | sed 's/"//g');
103     print "\n--------------------------------------------------------------------------------\n";
104 }
 

Muchas gracias de antemano!

[jferrero]

Perdón... creo que faltó algo...

Cambia

Código Perl:

or {
 

por

Código Perl:

or do {
 

y luego, en la llave final de la línea 93, le agregas un punto y coma.

[neodani]

Muchas gracias jferrero! aprendiendo cada día!