|
|
|
Forum Member
 
участник
Last Login: 11.09.2006 14:48
Сообщ.: 37,
Visits: 376
|
|
Как с помощью perl проверить дату изменения файла на сервере?
И вообще, опишите способ коим это все делается
|
|
|
|
|
новичок
участник
Last Login: 16.04.2004 15:36
Сообщ.: 9,
Visits: 100
|
|
Время последнего изменения файла (в днях), на примере удаления файлов старее $n дней
$n = 7.0;
while( defined( $file=glob('*') ) )
{
# проверяем кол-во дней с последнего изменения
if (-M $file >= $n)
{
unlink($file);
}
}
Другие операторы:
-C Время с момента создания
-A Время последнего доступа к файлу
Удачи!
|
|
|
|