Foro - Perl en Español

por **jreyesb** » 2009-07-08 20:49 @909

Hola a todos.

Tengo este problema que me está matando, este es el escenario.

Si yo hago esto: ls -l obtengo lo siguiente.

Sintáxis: [ Descargar ] [ Ocultar ]

-rw-r--r-- 1 netrac netrac 2928 jul 8 18:47 file1.pl
-rw-r--r-- 1 netrac netrac 2928 jul 8 19:07 file2.pl
-rw-r--r-- 1 netrac netrac 2928 jul 8 19:10 file3.pl

Ahora bien, lo que necesito solamente son los archivos que fueron accedidos >= 19:00. Por ej.

Sintáxis: [ Descargar ] [ Ocultar ]

-rw-r--r-- 1 netrac netrac 2928 jul 8 19:07 file2.pl
-rw-r--r-- 1 netrac netrac 2928 jul 8 19:10 file3.pl

Encontré este script el cual crea una regla para encontrar solamente archivos (y no directorios u otras cosas) que fueron accedidos al menos 14 días antes:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use File::Find::Rule;
my$path="/data";
my@results= File::Find::Rule->file->ctime('>14')->in($path);
foreachmy$i(@results){
print"$i\n";
}Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

La pregunta es, en lugar de 14 días atrás, ¿cómo puedo especificar una fecha? Por ej. >= current system date.

Gracias

Bienvenido a los foros de Perl en Español, jreyesb.

Se me ocurren dos cosas. La primera es que para saber el tiempo de acceso debes usar atime(), no ctime().

Y la segunda. Depende de en qué formato te den la fecha, pero lo normal sería usar el módulo DateTime para pasar la fecha a días, y de ahí ya puedes usar el módulo de find().

por **jreyesb** » 2009-07-09 16:56 @747

Hola a todos, gracias Explorer,

Bueno, en realidad esa puede ser una alternativa, digo, la idea sería:

1. Correr el script y copiar todos los ficheros los cuales la fecha de creación sea de los últimos 10 minutos.
2. Cambiar al "folder de trabajo" y parsear los ficheros uno a uno (en este paso, sería bastante útil ordenar los ficheros por ctime)
3. Si los ficheros fueron sorteados, entonces el último archivo parseado contiene el max ctime, así que lo guardo en $lastparsetime
4. Sleep 10 minutos
5. Despierta y busca nuevos ficheros (tomando el $lastparsetime como punto de partida), si existen entonces repite el proceso, si no Sleep otros 10 minutos.

Esto es lo que tengo hasta el momento, pero no está haciendo lo que pretendo arriba, ¿alguna sugerencia, por favor?

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use strict; 
use File::Find::Rule; 
use Time::Local; 
 
my $DIR = "/home/netrac/BSMPERL"; 
my $DIRW = "/raw_data/COMPLETED/BSM"; 
my $DIRBIN = "$DIR/bin"; 
my $DIRLOG = "$DIR/log"; 
my $DIRDAT = "$DIR/dat"; 
my $LOGFILE = "$DIRLOG/BSMLog.log"; 
 
my $target = timelocal( 0, 0, 0, 8, 7, 2009 ); 
my @results = File::Find::Rule 
                ->file 
                ->name('MCBTSSubsystem-*.gz') 
                ->exec( sub{ (stat($_))[10] - $target > 0 ? $_ : '' } ) 
                ->in($DIRW); 
 
foreach my $i (@results) { 
        print "$i\n";
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2009-07-09 18:01 @792

Lo primero que tienes que aclararte es qué tipo de tiempo estamos hablando: creación, acceso o modificación. Cada uno, es distinto. En el primer mensaje del hilo hablabas de acceso, pero en este último hablas de creación.

Vamos a suponer que es el de creación, porque haces tanto referencia a ctime() como a stat[10].

Por ejemplo, con el siguiente código salen los ficheros '/tmp/cache_*' que hayan sido creados en los últimos diez minutos.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

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

chdir'/tmp'ordie;

for(<cache_*>){
my$ctime=(stat($_))[10];

printiftime-$ctime< 10 *60;
}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¡Ojo! NO salen los ficheros que hayan sido creados hace MÁS de diez minutos.

Lo que hacemos es aplicar las mismas reglas que estás usando con File::Find::Rule, pero de forma más directa: entramos en el directorio, repasamos todos los ficheros que coincidan con el patrón, de cada uno de ellos vemos su tiempo de creación, y miramos a ver si el lapso de tiempo entre la fecha actual (time()) y el de su creación es inferior a 600 segundos.

El problema está justo en cómo indicamos la regla exacta que queremos a File::Find::Rule.

Sabemos que queremos los ficheros creados (ctime()) hace diez minutos (time()-600) o menos, así que lo que queremos son los ficheros cuyos ctime() sean superiores a esa marca (time()-600). Queda así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

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

use File::Find::Rule;

my$path='/tmp';

my@results= File::Find::Rule->file->ctime('>'.(time- 600))->in($path);

formy$i(@results){
my$ctime=(stat$i)[10];
print"$i $ctime ",time-$ctime;
}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Fíjate en el truco: hacemos la operación matemática para saber la marca de tiempo de hace diez minutos y luego le ponemos por delante un '>' para que Number::Compare sepa cómo realizar la comparación con el valor de ctime().

Las dos fórmulas que hemos usado son iguales matemáticamente:

time - ctime < 600

ctime > time - 600

por **jreyesb** » 2009-07-10 17:41 @778

Perfecto, explorer, mil gracias, voy a adaptar el código y más tarde posteo la solución que al igual y alguien más resulte interesado.

Excelente foro, de los mejores que he visto, mil gracias.

Foro - Perl en Español

Encontrar archivos recientes y copiarlos a otra carpeta

Encontrar archivos recientes y copiarlos a otra carpeta

Publicidad

Re: Encontrar archivos recientes y copiarlos a otro folder

Re: Encontrar archivos recientes y copiarlos a otro folder

Re: Encontrar archivos recientes y copiarlos a otro folder

Re: Encontrar archivos recientes y copiarlos a otra carpeta

¿Quién está conectado?