07/11/2008, 10:17
|
| | | Fecha de Ingreso: noviembre-2008 Ubicación: Puebla, Pue.
Mensajes: 2
Antigüedad: 15 años, 7 meses Puntos: 0 | |
| Respuesta: comprobar la sintaxis de un fichero
este es mi codigo pero en la parte donde mando a llamar al archivo necesito mandar a llmar o otros y imprimr de cada uni de elllo sus 2 primerias lineas
use strict;
use File::Find;
use CGI qw(:standard);
print "<HTML><BODY> \n";
my $dir = 'C:/directorios/tmp';
find(\&imprimir_archivo, $dir);
sub imprimir_archivo{
my $elemento = $_;
print "$elemento\n" ;
open(FH, 'C:/directorios/tmp/mom.edifasf.r4x.200810311028');
my @linea = (<FH>);
print "$linea[0]";
print "TIEMPO DE ACTUALIZACION: $linea[1]\n";
my ($sec,$min,$hora,$mdia,$mon,$ano,$wdia,$ydia,$isds t,@meses,@dias,$fecha);
($sec,$min,$hora,$mdia,$mon,$ano,$wdia,$ydia,$isds t) = localtime (time);
@meses = ('01','02','03','04','05','06','07','08','09','10' ,'11','12');
$ano += 1900;
$fecha="$ano$meses[$mon]$mdia\n";
$hora="$hora$min$sec\n";
print ("FECHA $fecha HORA $hora\n");
} |