Resultado de system() guardarlo en variable?

[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