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

[Shurik]

Как определить дату создания файла на Perl? Точнее мне нужно узнать, сколько минут прошло от настоящего момента до времени создания файла.
хто-нить в курсе?

[Saiprex]

Я в курсе.....
Вот листинг скрипта:

##################################
#!/usr/bin/perl
##################################
$z="test.pl";
@size=stat($z);
$min=(time-$size[10])/60;
$sec=(time-$size[10])%60;
print "Content-type: text/html\n\n";
print int $min;
print ".$sec";
##################################

все ок ?

[Shurik]

Посмотрю, скажу.
Кстати, почему $size[10]. Почему именно 10? А до 10 ячейки что находится? И я забыл, что такое % - что за операция?

[Saiprex]

Ну ты даешь....
Функция stat(); возвращает вс данные о файле начия с атрибутов и заканчивая временем создания.....
все данные из функции stat(); мы запихнули в массив....
И как раз 10 переменная в массиве - это и есть дата зоздания файла!

Префикс % относится к ссылкам в хеш!

[Shurik]

:D
Про ф-ию stat я просто не знал. :) Зато ты забыл, что перл ведет отсчет с 0, поэтому там нужна не десятка, а девятка! На 10ой позиции стоит: дата последнего изменения статуса.
Вообщем, спасибо. Пашет.

[Saiprex]

Я не забыл..... такое не забудешь! Я просто немного перепутал :-)

[Grey]

Должен вас огорчить, 9 праметр - это время последней модификации файла, а не его создания