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