Forum Webscript.Ru

Программирование => Perl => Тема начата: Saiprex от 27 Ноября 2001, 06:23:48

Название: Как определить дату создания файла?
Отправлено: Saiprex от 27 Ноября 2001, 06:23:48

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

Название: Как определить дату создания файла?
Отправлено: vladsu от 27 Ноября 2001, 11:58:46

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 от 27 Ноября 2001, 12:09:39

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

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

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

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

Название: Как определить дату создания файла?
Отправлено: от 27 Ноября 2001, 12:49:05

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

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

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

ююю

Название: Как определить дату создания файла?
Отправлено: NeoNox от 27 Ноября 2001, 16:29:15

Цитировать

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

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

Название: Как определить дату создания файла?
Отправлено: от 27 Ноября 2001, 18:28:04

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

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

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