Forum Webscript.Ru
Программирование => Perl => Тема начата: Yaroslav от 25 Июня 2003, 23:40:40
-
суть такова - создается времменый файл и ждет пока его перебросят в главную директорию.
а вот если не перебросили его через часа так 4, то его надо удалить.
Как сделать так, что б он удалялся?
-
Заноси в базу данных или в файл отдельный информацию о том, когда был создан интересующий файл и путь к нему. Хотя можно время создания файла прямо из файловой системы брать - это не принципиально. Ну а потом, например, можешь добавить процедуру проверки файлов на "старость": читаешь информацию из базы данных и проверяешь, если какой-то файл стал старше четырех часов и ещё существует, то удаляешь его самого и запись о нем из базы данных.
-
sub rm_temps {
my $hours = shift || 0; #часы или сразу
my @files = ;
foreach (@files) {
unlink $_ if -e $_ && (time - (stat($_))[9]) > ($hours * 3600);
}
}