Ver Mensaje Individual
  #3 (permalink)  
Antiguo 28/06/2010, 09:54
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)

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:
Ver original
  1. open my $FICHERO, "</etc/awstats/web/$file"
  2.     or die "ERROR: No puedo abrir $file: $!\n";
  3.  
  4. while (<$FICHERO>) {
  5.     next if /^\s*#/;    # obviamos los comentarios
  6.     next if /^\s*$/;    # obviamos las líneas vacías o en blanco
  7.     # ...
  8. }
  9.  
  10. close $FICHERO;
__________________
JF^D Perl Programming en Español

Última edición por jferrero; 28/06/2010 a las 10:01