Ver Mensaje Individual
  #4 (permalink)  
Antiguo 25/06/2010, 07:49
jferrero
Colaborador
 
Fecha de Ingreso: mayo-2006
Ubicación: Valladolid
Mensajes: 524
Antigüedad: 18 años
Puntos: 11
Respuesta: Resultado de system() guardarlo en variable?

Te vale con guardarlos en una variable array:

Código Perl:
Ver original
  1. my $DOMINIO = shift @ARGV;
  2. my @ficheros = Existe_Awstats($DOMINIO);
  3.  
  4. if (@ficheros) {
  5.     print "Existe: @ficheros\n";
  6. }
  7. else {
  8.     print "No existe\n";
  9. }
  10.  
  11. sub Existe_Awstats {
  12.     my $DOMINIO = shift;
  13.     return grep { /$DOMINIO/ } qx(ls /etc/awstats/web/);
  14. }
__________________
JF^D Perl Programming en Español

Última edición por jferrero; 25/06/2010 a las 08:11