Как определить дату создания файла?

[Saiprex]

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

[vladsu]

Hi.

Здесь определение времени последнего изменения

http://forum.768.ru/YaBB.pl?board=general&action=display&num=1006072318

а здесь текущее
http://forum.768.ru/YaBB.pl?board=general&action=display&num=1005516171

Удачи!

[NeoNox]

Тебе нужно использовать ф-ию stat.

$file=test.txt;
($dev, $ino, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime, $ctime, $blksize, $blocks) = stat ($file);

print "$file был создан/изменен - $mtime.";

Надеюсь, разницу между текущим и $mtime ты найдешь?

Казахский вариант

$z="F:/uuu2.txt";
@size=stat($z);
$min=(time-$size[9])/60;
$sec=(time-$size[9])%60;
print int $min;
print ".$sec" ;

Время отоброжается в мин.сек Но только не от времини создания файла а от времени последнего изменения

ююю

[NeoNox]

$min=(time-$size[9])/60;
$sec=(time-$size[9])%60;

а с кодом поточнее в Kазахском варианте можно?

Казахский вариант

Код обсолютно точный
$min=(time-$size[9])/60; # это делит количество секунд на 60 с кучей знаков после запятой
$sec=(time-$size[9])%60; # а это остаток после деления нацело
print int $min; #печятает только целую часть
print ".$sec" ; #это печятет остаток после деления на 60

Что ненравится конкретней скажите Не только недумайте что я обиделся може я просто чего невижу Може какая ошибка ускользнула Но покрайней мере у меня усё работает