Foro - Perl en Español

por **enric73** » 2014-03-30 04:11 @216

Hola, compañeros.

Deseo eliminar ficheros de un directorio que caduquen en dos días respecto el día actual.

El nombre de los ficheros tiene el siguiente formato: WC_2014032700.dat, WC_2014032712.dat...

He pensado en utilizar el nombre del fichero, aislar la cifra y compararla con la fecha actual para saber si son caducos y luego eliminar... pero me he quedado atascadillo. Muestro el código...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
use Class::Date qw(date now);
use File::Path;
use File::Copy;
$n                        = 2;
$hoy                      = now;
$data_limit               = $hoy - "$n D";
$Class::Date::DATE_FORMAT = "%Y%m%d%H";
 
chdir($dir);
open( LS, "ls |" ) or die $!;
while (<LS>) {
    chomp( $data = $_ );
    @data  = split( /_/, $data );      #separo el nombre por el guión
    @data2 = split( /./, $data[1] );   #separo el elemento data[1] por el punto
 
    $data3 = date $data2[0] . "0000";
    if ( $data3 < $data_limit ) {
        rmtree( $dir . "/WC_" . $data3 . ".dat" ) or die $!;
    }
}
close(LS);
}
 
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

pero no chuta... ¿alguna ayuda?

Gracias.

#!/usr/bin/perl -w
use Class::Date qw(date now);
use File::Path;
use File::Copy;
$n                        = 2;
$hoy                      = now;
$data_limit               = $hoy - "$n D";
$Class::Date::DATE_FORMAT = "%Y%m%d%H";
 
my $dir = '.';
chdir($dir);
open( LS, "ls |" ) or die $!;
while (<LS>) {
    chomp( $data = $_ );
    @data  = split( /_/, $data );       # separo el nombre por el guión
    @data2 = split( /\./, $data[1] );   # separo el elemento data[1] por el punto
 
    $data3 = date($data2[0] . '000000');
    if ( $data3 < $data_limit ) {
        rmtree( $dir . "/WC_" . $data3 . ".dat" ) or die $!;
        #print  ( $dir . "/WC_" . $data3 . ".dat", "\n");
    }
}
close(LS);
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

El tema estaba en no escapar el '.' en la expresión regular del segundo split(). Y que faltaba un '00' a la hora de confeccionar la fecha para $data3.

Esta es mi propia versión:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use v5.14;                                      # activamos las nuevas características
use File::Copy;
use POSIX 'strftime';
 
my $lapso  = 2;
my $limite = strftime "%Y%m%d", localtime( time - $lapso * 86_400 );
my $dir    = '.';
 
chdir($dir);
 
while (<WC_*>) {                                # recorremos todos los archivos
    my ($fecha) = /WC_(\d+)/;                   # sacamos la fecha
 
    if ( $fecha < $limite ) {                   # si es menor que el límite
        say "$fecha < $limite. Borrar [$_]";    # lo procesamos
    }
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **enric73** » 2014-04-13 05:22 @265

Gracias, explorer.

Saludos

Foro - Perl en Español

Eliminar ficheros de directorio en función de la fecha

Eliminar ficheros de directorio en función de la fecha

Publicidad

Re: Eliminar ficheros de directorio en función de la fecha

Re: Eliminar ficheros de directorio en función de la fecha

¿Quién está conectado?