Re: lug-bg: iztrivane

[Danail Petrow <oneofus@xxxxxxxxxxxxx>]

Същият пример с малко допълнениа за '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
============================================================================