Определение даты изменения файла

[inecs]

Люди помогите. Например есть файл на сервере, надо определить его дату создания или изминения и записать дату в другой файл. Каждый раз при запуске скрипта он должен определять дату создания или изминения и сравнивать её с той датой, которая записана в файле. И если есть какие либо изменения делать что-то еще (что то еще я сам уже написал) :-)
Спасибо

Привет.

Это же элементарно
Есть стандартная функция stat ...

@fileinfo = stat ($filename);

Теперь в масиве fileinfo у нас собрана вся информация по файлу $filename.

$fileinfo[7] - полный размер файла в байтах;
$fileinfo[8] - время последнего обращения к файлу;
$fileinfo[9] - время последнего изменения файла...

Всё расписывать не буду, так как это есть в любой документации по Perl.

[MpaK999]

$lasttimemodife=&get_time_by((stat("CATALOG/FILE.EXT"))[9]);



#-----
sub get_time_by{
my $time=shift;
($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime($time);
$year+=1900;
$mon++;
$mon = "0$mon" if($mon<10);
$mday = "0$mday" if($mday<10);
$hour = "0$hour" if($hour<10);
$min = "0$min" if($min<10);
$sec = "0$sec" if($sec<10);
return "$mday.$mon.$year $hour:$min:$sec";
}