Thread 2 Tage alte Dateien in einem Ordner löschen: Alte Dateien sollen gelöscht werden (9 answers)
Opened by sequester01 at 2006-10-02 11:28

renee
 2006-10-02 11:48
#70421 #70421
User since
2003-08-04
14371 articles
ModeratorIn
[Homepage] [default_avatar]
Probier mal:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/usr/bin/perl

use strict;
use warnings;

my $directory = '/path/to/directory/';
my $accesstime = 2; # letzter Zugriff vor 2 Tagen

opendir(DIR,$directory) or die $!;
my @files = grep{$_ !~ /\.\.?$/}readdir(DIR);
closedir DIR;

for my $file(@files){
my $filename = $directory . '/' . $file;
if(-f $filename and -A $filename >= $accesstime){
unlink $filename;
}
}


Kuerzer:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/perl

use strict;
use warnings;

my $dir = '/directory/';
my $last_access = 2;

opendir(DIR,$dir) or die $!;
my @files = grep{-f $_ and -A $_ >= $last_access}map{$dir.'/'.$_}grep{$_ !~ /\.\.?$/}readdir(DIR);
closedir DIR;

unlink @files;
\n\n

<!--EDIT|renee|1159775501-->
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

View full thread 2 Tage alte Dateien in einem Ordner löschen: Alte Dateien sollen gelöscht werden