Ver Mensaje Individual
  #5 (permalink)  
Antiguo 29/06/2010, 02:42
jferrero
Colaborador
 
Fecha de Ingreso: mayo-2006
Ubicación: Valladolid
Mensajes: 524
Antigüedad: 17 años, 11 meses
Puntos: 11
Respuesta: Problema al ejecutar un comando del sistema (system)

Código Perl:
Ver original
  1. open my $FICHERO, "</etc/awstats/web/$file"
  2.     or do {
  3.         print colored(" [ERROR] >>> No existe el fichero introducido ",'bold red');
  4.         print color 'reset';
  5.         print "$file", colored(" en /etc/awstats/web/",'bold red'),"\n\n";
  6.         exit 1;
  7.     };
Código Perl:
Ver original
  1. open my $FICHERO, "</etc/awstats/web/$file"
  2.     or die
  3.           colored(" [ERROR] >>> No existe el fichero introducido ",'bold red')
  4.         . color('reset')
  5.         . "$file"
  6.         . colored(" en /etc/awstats/web/",'bold red')
  7.         . "\n\n"
  8.         ;
Hay varias formas...
__________________
JF^D Perl Programming en Español

Última edición por jferrero; 29/06/2010 a las 09:44