Resultado de system() guardarlo en variable?

[neodani]

Buenas,

No consigo guardar en esta variable el resultado de ejecutar el ls y contar las lineas que salieron, siempre tiene valor 0 la variable $existe.

Estoy haciendo mal el system() ?

Lo que hace en lugar de guardar el resultado en $existe, es mostrar el resultado por pantalla...

Código PERL:

sub Existe_Awstats {
    my $existe = system("ls /etc/awstats/web/ | grep $DOMINIO | wc -l");
    print $existe;
    if ($existe = 0){
        print "NO hay fichero\n";
    }else{ print "EXISTE un fichero\n"}
}
 

Alguna idea?

Muchas gracias de antemano!

[jferrero]

system(), en Perl, devuelve el valor del estatus del resultado de la operación, no la salida de la operación.

Eso lo hace qx():

Código Perl:

my $existe = grep { /$DOMINIO/ } qx(ls /etc/awstats/web/);
if ($existe == 0){
    print "NO hay fichero\n";
}
else {
    print "EXISTE al menos un fichero\n";
}
 

(Atención al '=' dentro de la condición: lo tenías puesto como una asignación, por lo que siempre valía 0)

Al asignar la lista de valores que devuelve grep{} a una variable escalar, la lista se convierte en el número de líneas.

Si la función debe devolver un verdadero o falso si hay ficheros o no, te vale con un

Código Perl:

sub Existe_Awstats {
    return grep { /$DOMINIO/ } qx(ls /etc/awstats/web/);
}
 

o incluso, si sabemos que los ficheros, dentro de /etc/awstats/web/, empiezan por el nombre de cada $DOMINIO, lo siguiente también podría funcionar:

Código Perl:

sub Existe_Awstats {
    return </etc/awstats/web/$DOMINIO*>;
}
 

y así, no necesitas ejecutar ningún otro comando externo.

[neodani]

Muchas gracias funcionó a la perfección :)

Lo único que no consigo que me liste las coincidencias en caso de que existan los ficheros

Código PERL:

my $DOMINIO=$ARGV[0];
 
 
if (!Existe_Awstats) {
    print "NO existe\n";
}else{
    print "Existe\n";
    `ls /etc/awstats/web/ | grep $DOMINIO`
}
 

Que hago mal? no me muestra nada por pantalla, tengo que utilizar esta orden para que funcione.

system("ls /etc/awstats/web/ | grep $DOMINIO")

Saludos!

[jferrero]

Te vale con guardarlos en una variable array:

Código Perl:

my $DOMINIO = shift @ARGV;
my @ficheros = Existe_Awstats($DOMINIO);
 
if (@ficheros) {
    print "Existe: @ficheros\n";
}
else {
    print "No existe\n";
}
 
sub Existe_Awstats {
    my $DOMINIO = shift;
    return grep { /$DOMINIO/ } qx(ls /etc/awstats/web/);
}
 

[neodani]

Iniciado por jferrero

Te vale con guardarlos en una variable array:

Código Perl:

my @ficheros = Existe_Awstats();
 
if (@ficheros) {
    print "Existe: @ficheros\n";
}
else {
    print "No existe\n";
}
 
sub Existe_Awstats {
    return grep { /$DOMINIO/ } qx(ls /etc/awstats/web/);
}
 

Entendido, muchas gracias