ÐÑÑÐÑÑ ÐÑÐÐÐÑ Ñ ÐÐÐÐÐ ÐÐÐÑÐÐÐÐÐÐ ÐÐ 'mtime'
#!/usr/bin/perl
$dirname = "/usr/backup";
opendir(DIR, $dirname) || die "can't opendir $dirname: $!";
foreach $file (readdir(DIR)) {
$mtime = (stat($dirname.$file))[8];
$exprdate = ($mtime + 537600 ) ; #537600-> ÐÑÐÐÐ Ð ÑÐÐÑÐÐÐ Ða 1
ÑÐÐÐÐÑÐ
my $unixtime$=time;
if ($unixtime > $exprdate) {
unlink $dirname.$file ;
}
}
closedir(DIR);
ÐÐÑÐÐÑÐÑÐÐÐ ÑÐ ÑÐ ÑÐÐÐÑÐ ÐÐ ÐÑÑÐÐ Ð ÐÐÐÐ ÐÑ
ÐÑÐÐÐÑÐ ÐÐ ÐÐÐÑÐÐ :)
ÐÑÐÐÐÐ ÐÐÑÐ ÐÐÑÐÐ !!!
ÐÐÐÐÑÐÐÐ,
ÐÐÐÐÐÐ ÐÐÑÑÐÐ
============================================================================
A mail-list of Linux Users Group - Bulgaria (bulgarian linuxers).
http://www.linux-bulgaria.org - Hosted by Internet Group Ltd. - Stara Zagora
To unsubscribe: http://www.linux-bulgaria.org/public/mail_list.html
============================================================================
