[Perl] Re: Saludos

[Gabriel Arenas Romero]

--=-OZxUSZ5G3oEY01NGEg3R
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 8bit

Hola:

Te envio un pequeño script que -creo- hace lo que necesitas. Sólo
adáptalo a necesidades particulares

                          Hasta luego

                               Gabriel

--=-OZxUSZ5G3oEY01NGEg3R
Content-Disposition: attachment; filename=lee_archivos.pl
Content-Type: text/x-perl; name=lee_archivos.pl; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit

#!/usr/bin/perl
#
    my $nom='sistema';
    my $ext='.log';
    my $mes='05';
    my $dd=1;
    my $diafin=31;
    while($dd <= $diafin) {
	my $dia = ($dd > 9 ? $dd : '0'.$dd );
	my $arch=$nom.$mes.$dia.$ext;
	print "archivo => $arch\n";
    # si existe el archivo
	if(-e $arch) {
	# se abre de lectura
	    open(ENTRA, '<'.$arch);
	    my @regs=<ENTRA>;
	    for my $reg (@regs){
		print $reg;
	    }
	} else {
	    print "No existe el archivo\n";
	# para detener el ciclo
	    $dd = 60;
	}

	$dd++;
    }



--=-OZxUSZ5G3oEY01NGEg3R--