Re: lug-bg: iztrivane

[Nick Kirchev <nick@xxxxxxxxxxx>]

On Monday 26 April 2004 17:32, Danail Petrow wrote:
> Същият пример с малко допълнениа за '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 ;
                                              
добре е да проверявате и за грешки  при:

 unlink ($dirname.$file)   || die "Can't unlink $dirname.$file $!\n"



>                 }
>         }
> 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
> ===========================================================================
>=

-- 

 .''`.   Debian
: :'  :  GNU/Linux
`. `'`
  `-  
============================================================================
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
============================================================================