Foro - Perl en Español

por **mvil1984** » 2009-07-20 10:59 @499

Buenas compañeros.

Actualmente necesito crear un script que haga lo siguiente: si se tiene la fecha de hoy, 20/07/2009, necesito que a ésta se le reste un día, entonces quedaría 19/07/2009 con hora 18:00 y luego que busque en un directorio X todos los archivos con una fecha de modificación del archivo mayor a la fecha 19/07/2009 a las 18:00 y me lo muestre o lo guarde en un archivo.

Para empezar tengo 10 días en esto, o sea, aprendiendo Perl, no soy muy hábil y no dispongo de mucho tiempo ya que tengo que hacer otras cosas, esto lo requiero para mi trabajo, porque es posible que de no hacerlo me regañen o algo parecido. Desde el 10/07/2009 estoy en esto.

He hecho varios scripts; sin embargo no consigo mi objeto.

Deseo que alguien me ayude con lo que pueda, porque parece que esto me llevará tiempo y es lo que menos tengo.

Adjunto todos los intentos que tengo para hacer diferentes cosas, la comparación de fechas es difícil, no encuentro la forma de hacerlo y he buscado por todo lado sin éxito. Esto debido a no consigo obtener el mismo formato para comparar dos fechas, la nueva fecha contra la de modificación.

Muchas gracias y espero me puedan ayudar CON TODO LO QUE PUEDAN, tampoco puedo acceder a Internet, el acceso es limitado en las páginas. Adjunto mis desarrollos para que hagan observaciones, comentarios y aportes ya que todas son bien recibidas.

Gracias

INTENTO DE FORMATO DE FECHAS

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
use File::stat;
use Time::localtime;
 
 
 
$file='test.txt';
$date_string = ctime(stat($file)->mtime);
 
$nueva = ($sec,$min,$hour,$mday,$mon,$year,$wday,
$yday,$isdst)=localtime($date_string);
 
 
 
 
print "$nueva\n";
 
#$Archivo = 'prueba.txt';
#open(Archivo,">>$Archivo");
#print Archivo "La fecha de modificacion del archivo $file es $date_string\n";
#print Archivo "El resultado es $resultado";
#print Archivo "La nueva fecha es $fecha_nueva";
 
#close (Archivo);
 
 
INTENTO DE FORMATO DE FECHAS 2
 
# declaramos la variable $fecha
#$fecha;
#$fecha = `date`; 
#print "$fecha";
#if($fecha =~ /mar\s+\d/)
#{
#       print("Estamos en Marzo, el mes de mi cumpleaños\n");
#       }
#else
#{      
#       print "Todavía queda para mi cumpleaños\n";
#}
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
#use Date::Calc qw( Decode_Date_US );
($sec,$min,$hour,$mday,$mon,$year,$wday,
$yday,$isdst)=localtime(time);
 
$mdayAnt= $mday - 1;
$hourAnt=18;
$yearAnt = $year+1900;
$year = $year+1900;
$mon = $mon+1;
$minAnt=00;
$secAnt=00;
 
#$fecha = $yearAnt . "-0" . $mon . "-" . $mdayAnt . " " . $hourAnt . ":0" . $minAnt . ":0" . $secAnt;
 
$fechaAnt = $yearAnt . "-" . substr ("0" . $mon,1,2) . "-" . $mdayAnt . " " . $hourAnt . ":0" . $minAnt . ":0" . $secAnt;
 
$fecha = $year . "-" . substr ("0" . $mon,1,2) . "-" . $mday . " " . $hour . ":" . $min . ":" . $sec;
 
#printf "%4d-%02d-%02d %02d:%02d:%02d\n",
#$year,$mon,$mday,$hour,$min,$sec;
 
printf "$fechaAnt\n";
 
printf "$fecha\n";
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

PROGRAMA PRINCIPAL ORIENTADO A LECTURA DEL ARCHIVO

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use POSIX qw/ strftime /;
use Getopt::Std;
 
 
# -f: Patron de los archivos a validar.
# -d: Indica el directorio a buscar archivos.
# -n: Nombre Archivo Generar.
# -s: Cadena-patron busqueda
# -c: Cantidad de lineas a validar
 
getopts ("f:d:n:s:c:");
if ((!defined($opt_f)) || (!defined($opt_d)) || (!defined($opt_n)) || (!defined($opt_s)) || (!defined($opt_c)) ) {
  print "Programa que fechas en los archivos y determina si su fecha es correcta\n\n";
  exit;
}
 
print "--Inicio--\n";
 
#---Declaracion variables
$sArchivos       =$opt_f;
$sDirectorio     =$opt_d;
$sNombreBase     =$opt_n;
$sCadenaBusqueda =$opt_s;
$iCantidadLineas =$opt_c;
 
print "Directorio:$sDirectorio\n";      
 
$sFecha=strftime( "%d-%m-%Y.%H.%M.%S", localtime(time) );
$ArchivoResumen=$sNombreBase."+".$sFecha.".txt";
 
open(RESUMEN,">>$ArchivoResumen")|| die "Imposible abrir archivo: '$ArchivoResumen': $!";       
                
        print RESUMEN "Archivos\n\n";
        print RESUMEN "=================================================\n";
        print RESUMEN "Los archivos se encuentran localizados en la ruta: $sDirectorio\n";
        print RESUMEN "=================================================\n";
        print RESUMEN "El bat busca la fecha del batch dentro de los archivos y muestra su resultado\n\n";
        print RESUMEN "=================================================\n";
        print RESUMEN "Archivos\n\n";
        
                
        #Cierra el archivo
        close(RESUMEN); 
 
#Separacion de los patrones
@Patrones=split(/\\/,$sArchivos);
 
#Recorrido de los patrones
foreach $Patron (@Patrones) 
{
        
        @Archivos=<$opt_d\\$Patron>;    
        $Cantidad=$#Archivos + 1;
print "===========================================================\n";
print "Patron:$Patron\n";       
print "Cantidad:$Cantidad\n";   
print "@Archivos";
 
#Recorre el arreglo de archivos
        foreach $Archivos (@Archivos) 
        {
        $iContador=0;
        
print "cONT:$iContador\n";                      
                $sBandera ="FALSE";
                        
                #Separa la ruta
                @NombreEspecifico=split(/\\/,$Archivos);
                        
                #Extrae el nombre donde se registra el resumen archivo resumen
                #aqui va la vara del archivo
                $NombreArchivo=$NombreEspecifico[$#NombreEspecifico];
                                        
print "--------------------------------\n";             
print "Archivo-Ruta:$Archivos\n";
print "Archivo-Resumen:$ArchivoResumen\n";
        
        #Abre el archivo a scanear
                open(DETALLE,$Archivos)|| die "Imposible abrir archivo: '$Archivos': $!";
                
                #Se recorre el archivo 
                while (<DETALLE>) 
                {       
                                        
                        if ($iContador == iCantidadLineas )
                        {       
                                print "SALIO POR CONTADOR\n";   
                                break;
                        }
                        
                        
                        #$iContadorLinea++;
                        $Cadena=$_;
                        
print "Cadena: $Cadena\n";                      
                        #Validacion de la existencia del patron de busqueda                     
                        if ($Cadena =~ /$sCadenaBusqueda/)      
                        {
print "SALIO PORQ ENCONTRO\n";                                                                                  
                                $sBandera ="TRUE";
                                break;
                        }       
 
print "$sBandera\n";                    
print "Contador: $iContador\n"; 
print "Cantidad: $iCantidadLineas\n";           
$iContador++;   
#-----------------------------------------------------                          
                
                }
                        
                #Cierra el archivo a scanear
                close(DETALLE);
                
                #-----------------------------------------------------  
        $Mensaje="";
        
        if ($sBandera eq "TRUE")
        {       
                $Mensaje="La fecha $sCadenaBusqueda SI fue encontrada\n";
        }
        if ($sBandera eq "FALSE")
        {       
                $Mensaje="La fecha $sCadenaBusqueda NO fue encontrada\n";
        }
        
        open(RESUMEN,">>$ArchivoResumen")|| die "Imposible abrir archivo: '$ArchivoResumen': $!";       
                
        print RESUMEN "$NombreArchivo, $Mensaje";
                
        #Cierra el archivo
        close(RESUMEN); 
#-----------------------------------------------------          
                
        }
 
        
}               
print "--Salida--\n";
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Lo que hacemos es abrir el directorio (en este caso, el actual: "."), y para cada $fichero que hay ahí, miramos si es un fichero normal y corriente (-f) y su (_) fecha de modificación (-M) es inferior a un día (que es lo mismo que decir que la fecha de modificación es superior a la fecha de ayer a la misma hora). Si el $fichero cumple con las condiciones, lo sacamos a la salida estándar.

Y listo...

¿A qué es interesante aprender Perl?

por **mvil1984** » 2009-07-20 14:24 @641

Buenas y muchas gracias por atenderme tan rápido, te planteo el problema.

Sí necesito un reporte porque estos reportes servirán para iniciar monitoreos. El punto es que necesito quitarle a la fecha actual un 1 día y setearlo a las 18:00, esto porque a partir de esa hora los archivos comienzan a llegar a un servidor,entonces traen fecha de modificación o creación, pero todas las veces hay archivos que se llaman igual y los nuevos que llegan remplazan a los viejos y su fecha de modificación cambia.

Luego, estos se procesan y todo lo demás pero yo necesito que me traiga de forma ordenada, es decir en un reporte para presentarlo a los jefes y que sirva como punto de validación y evidencia la llegada de los archivos, para que esto una vez que se corra, tipo 04:00 am se valide estos datos y el departamento inicie el monitoreo.

Además necesito que sea con parámetros porque todos las rutas cambian y debo crear esto para varias cosas, con diferentes rutas, tipos de archivos y otras cosas.

Espero me puedas ayudar y MUCHAS GRACIAS

Gracias.

por **explorer** » 2009-07-20 19:32 @855

Aquí tienes una forma de conseguir la fecha de ayer a las 18:00 (hora local):

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -l
use strict;
use warnings;
use diagnostics;

printscalarlocaltime();

my@ayer=localtime(time- 86_400 );

use Time::Local;
my$time= timelocal(0,0,18,@ayer[3..5]);

printscalarlocaltime($time);Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Como ves, al momento actual (time()) le restamos el número de segundos de un día, y con esa ya tenemos el día de @ayer. Ahora, con la ayuda del módulo Time::Local vemos qué tiempo debe ser en el día de ayer, a las 18:00.

Ahora, con $time, ya puedes hacer la comparación de los tiempos con los ficheros.

Por estos foros hay más hilos comentando el acceso a ficheros para ver sus tiempos de creación y modificación.

por **mvil1984** » 2009-07-21 10:04 @461

Gracias,

Podrías pasarme los enlaces, porque los busco pero solo me sale el tema "http://perlenespanol.com/foro/encontrar-archivos-recientes-y-copiarlos-a-otra-carpeta-t4090.html?hilit=fecha%20de%20modificacion".

¿Cómo utilizo esto? porque necesito realizar la comparación contra la fecha de modificación de una archivos, que se realiza con la mtime. Para ello requiero que recorra todos los archivos de la ruta especifica. Lo que me doy cuenta es que Perl tiene muchas formas de archivar las cosas, algunas son más fáciles con funciones pero no las conozco todas. ¿Podrías darme una luz con esto, por favor?

Gracias

por **explorer** » 2009-07-21 10:51 @493

Para recorrer un directorio puedes usar las funciones opendir(), readdir() y closedir() como te puse en el ejemplo anterior. O usar '<>' si sabes el patrón de nombre de esos ficheros. Por ejemplo, '<*.dat>'.

Para obtener los datos de un fichero, usa la función stat(). Fíjate que se usa en los códigos del enlace que indicas. Es una forma de saber las fechas de creación, modificación y acceso de los ficheros. El tiempo es devuelto en formato UNIX (segundos desde el epoc), lo mismo que las funciones de tiempo comentadas en el código anterior, por lo que es fácil realizar las comparaciones.

También existen las funciones de comprobación '-X' que resuelven ciertas condiciones.

Ya tienes algo con lo que hacer algo de código...

Aunque con la línea Perl que te puse el otro día, sí que se resuelve el problema... solo había que añadirle la selección del directorio a analizar.

por **mvil1984** » 2009-07-21 12:23 @558

Buenas de nuevo, tengo un problema con la identificación de la ruta del directorio, ¿puedes ayudarme?

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -l
use strict;
use warnings;
use diagnostics;
 
 
print "La fecha de hoy es: ",scalar localtime();
 
my @ayer = localtime( time - 86_400 );
 
use Time::Local;
my $time = timelocal(0,0,18,@ayer[3..5]);
 
print "La fecha de ayer a las 6 es: ",scalar localtime($time);
 
my $filename='prueba.txt';
 
my $mode = (stat($filename))[9];
print "La fecha de modificacion es: ",scalar localtime($mode),"\n";
 
my $dir = "C:\Documents and Settings\prueba\Desktop\m\*.txt";
 
opendir(DIR, $dir) || die "No se puede abrir el directorio $dir: $!";
while (my $fichero = readdir(DIR))
{
if (-f $fichero and $mode > $time)
{
print "$fichero";
}
else 
{
print "El fichero $fichero tiene una fecha menor a $time";      
}
}
closedir DIR;
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2009-07-21 13:28 @603

Usa '/' en lugar de '\' en la indicación de los rutas de directorio.

Y no puedes indicar un comodín (*.txt) en la indicación de la ruta.

Si abres un directorio, no puedes usar comodines. Los comodines solo se pueden usar con glob() o con '<*.txt>'. Por ejemplo (no probado),

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my@ficheros=<C:/Documents and Settings/mvillegas/Desktop/m/*.txt>;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **mvil1984** » 2009-07-21 17:45 @781

Buenas, necesito agregarle más cosas a mi programa. Una es lo siguiente: si la bandera=procesado necesito que escriba los archivos debajo del título de donde dice "archivos procesados" en el archivo, pero si bandera=no procesado, necesito que escriba debajo de donde dice "Archivos no procesados" en el archivo. ¿Me ayudas?

La segunda cosa es que si el archivo se encuentra dentro de los "Archivos no procesados" necesito que tome el nombre del archivo y lo vaya a buscar a diferentes IP y varias rutas.

¿Cómo puedo hacer estas cosas? Ayúdame.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -l
use strict;
use warnings;
use diagnostics;
 
 
print "La fecha de hoy es: ",scalar localtime();
 
my @ayer = localtime( time - 86_400 );
 
use Time::Local;
my $time = timelocal(0,0,18,@ayer[3..5]);
 
print "La fecha de ayer a las 6 es: ",scalar localtime($time);
 
my $dir = <C:/DATA/prueba/Reporte/Documentos>;
 
#my $mode = (stat($filename))[9];
#print "La fecha de modificacion es: ",scalar localtime($mode),"\n";
 
my $ArchivoResumen="Informacion.txt";
 
my $Bandera="PROCESADO";
 
 
open(RESUMEN,">>$ArchivoResumen")|| die "Imposible abrir archivo: '$ArchivoResumen': $!";
 
print RESUMEN"MONITOREO DE LAS ARCHIVOS\n";
print RESUMEN"============================================================";
print RESUMEN"ARCHIVOS PROCESADOS\n";
print RESUMEN"===================================================";
print RESUMEN"ARCHIVOS NO PROCESADOS\n";
print RESUMEN"===================================================";
 
close(RESUMEN);
 
opendir(DIR, $dir) || die "No se puede abrir el directorio $dir: $!";
 
        while (my $fichero = readdir(DIR))
        {
                my $mode = (stat($fichero))[9];
                if (-f $fichero and $mode > $time)
                {
                        
                        $Bandera= "PROCESADO";
                }
                else 
                {
                        
                        $Bandera="NOPROCESADO";
                }
                
                        open(RESUMEN,">+$ArchivoResumen")|| die "Imposible abrir archivo: '$ArchivoResumen': $!";               
                        if ($Bandera="PROCESADO")
                        {                               
                                
                        print RESUMEN "$fichero ",scalar localtime($time); 
                        }       
                        else
                        {
                        print RESUMEN "$fichero ",scalar localtime($time);      
                        }
                        
                        close(RESUMEN);         
        
        }
closedir DIR;
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2009-07-21 18:28 @811

Los ficheros de tipo texto como el que estás abriendo en modo añadir, no funcionan como tu pretendes, permitiéndote "insertar" líneas donde te plazca.

El uso es mucho más primitivo: o creas un fichero, o escribes en un fichero (al principio) o añades al final o lo borras o sobre escribes contenido. Pero no existe el concepto de "insertar" información entre líneas.

Por eso, no te va a funcionar el escribir información debajo de cada uno de esos titulares.

La solución es obtener primero lo que quieres mostrar, y a continuación, sacarlo en el orden en que quieres grabarlo.

En tu caso es: analiza todos los ficheros y guarda los resultados en una variable intermedia, en dos arreglos. Luego, cuando hayas terminado con todos los ficheros, vuelca los resultados en orden.

Algo así (no probado):

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -l
#
# Discriminador de ficheros. JF 2009/07
#
# Este programa analiza los ficheros del directorio indicado, sacando un informe
# separando los que han sido procesados de los que no. Un fichero se dice que
# está procesado si su tiempo de modificación es inferior a las 18:00 horas local
# del día anterior al de ejecución de este programa.
#
use strict;
use warnings;
use diagnostics;
 
use Time::Local;
 
## Constantes
my $dir            = 'C:/DATA/prueba/Reporte/Documentos';
my $ArchivoResumen = 'Informacion.txt';
 
 
## Variables
my @procesados;
my @no_procesados;
 
 
## Cálculo del tiempo
print "La fecha de hoy es: ", scalar localtime();
 
my @ayer = localtime( time - 86_400 );
my $time = timelocal(0,0,18,@ayer[3..5]);
 
print "La fecha de ayer a las 18:00 es: ",scalar localtime($time);
 
 
## Análisis de los ficheros
opendir (DIR, $dir) or die "No se puede abrir el directorio $dir: $!\n";
while (my $fichero = readdir(DIR)) {
    next if ! -f $fichero;           # Saltamos al siguiente si no es un fichero normal
 
    my $mtime = (stat("$dir/$fichero"))[9]; # Tiempo de modificación
 
    my $texto = "$fichero " . scalar localtime($time);
 
    if ($mtime > $time) {            # Según el $mtime, lo guardamos en un sitio u otro
        push @procesados,    $texto;
    }
    else {
        push @no_procesados, $texto;
    }
}
closedir DIR;
 
 
## Salida
open (RESUMEN), ">>$ArchivoResumen" or die "Imposible abrir archivo: '$ArchivoResumen': $!\n";
print RESUMEN "MONITOREO DE LAS ARCHIVOS\n";
print RESUMEN '=' x 60;
print RESUMEN "ARCHIVOS PROCESADOS\n";
print RESUMEN "=" x 40;
print RESUMEN join("\n", @procesados), "\n";
print RESUMEN "ARCHIVOS NO PROCESADOS\n";
print RESUMEN "=" x 40;
print RESUMEN join("\n", @no_procesados), "\n";
close(RESUMEN);
 
## Fin
__END__
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Actualización: Hubo un error en la línea del stat(): había que pasarle la ruta completa.

Foro - Perl en Español

Búsqueda de fechas y comparación de archivos

Búsqueda de fechas y comparación de archivos

Publicidad

Re: Búsqueda de fechas y comparación de archivos

Re: Búsqueda de fechas y comparación de archivos

Re: Búsqueda de fechas y comparación de archivos

Re: Búsqueda de fechas y comparación de archivos

Re: Búsqueda de fechas y comparación de archivos

Re: Búsqueda de fechas y comparación de archivos

Re: Búsqueda de fechas y comparación de archivos

Re: Búsqueda de fechas y comparación de archivos

Re: Búsqueda de fechas y comparación de archivos

¿Quién está conectado?