Удаление временных файлов
- #! /usr/bin/perl
- use CGI::Carp qw(fatalsToBrowser);
- print "Content-type: text/html; charset=utf-8\n\n";
- sub del_bad {
- $dir = $_[0];
- $limit = $_[1];
- $root=$ENV{'DOCUMENT_ROOT'};
- opendir(FILES,"$root/$dir") or die ("huya");
- @files=readdir(FILES);
- close(FILES);
- foreach $file (@files){
- next if ($file eq ".");
- next if ($file eq "..");
- if(-f "$root/$dir/$file"){
- $mdate = (stat ("$root/$dir/$file"))[9];
- if($mdate+($limit*60) < time()) {
- unlink ("$root/$dir/$file");
- }}}}
- #удаляем просроченые файлы из папки tmp которые изменялись последний раз болие чем час назад
- del_bad("tmp",60);
Чисто чтоб память очищать.
