Eliminar carpetas con una antigüedad de más de 12 horas
Publicado: 2015-05-05 12:56 @581
Hola,
necesito eliminar carpetas que tengan una antigüedad de más de 12 horas.
El siguiente código está incompleto porque necesito la fecha de creación de cada carpeta y no lo consigo. ¿Me pueden echar un cable?
De momento el código queda de esta manera:
necesito eliminar carpetas que tengan una antigüedad de más de 12 horas.
El siguiente código está incompleto porque necesito la fecha de creación de cada carpeta y no lo consigo. ¿Me pueden echar un cable?
De momento el código queda de esta manera:
Using perl Syntax Highlighting
- #!/usr/bin/perl -w
- use v5.10.0;
- use File::Copy;
- use POSIX 'strftime';
- use File::Temp;
- use File::stat;
- my $dir = '/home/sim/data/';
- opendir(DIR,"$dir");
- @files = readdir(DIR);
- foreach $file (@files){
- print $file, "\n";
- if (-C $file > 0.5){
- unlink $file;
- }
- }
- closedir(DIR)
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4