|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Ivan Frolcov 2:5020/175.2 05 Jan 2001 15:44:19 To : Vladimir Podgorny Subject : Re: Data --------------------------------------------------------------------------------
>> VB> А как правильно?
>> use POSIX;
>> print strftime("%m/%d/%y",localtime());
VP> IMHO человек просил не это... Опять же IMHO:
VP> sub getmdate() {
VP> ( -f $file ) ? (my ($day,$mon,$year)=localtime((stat($file))[9])) :
VP> return();
VP> return(sprintf("%u0.4/%u0.2/%u0.2",$year,$mon,$day));
VP> }
Мы в город изумрудный идем дорогой трудной... Вообще, код у тебя какой-то
такой... э-э... ибо (stat($file))[9] - время в секундах с начала эпохи.
use POSIX;
print strftime("%m/%d/%y", localtime( (stat("file"))[9] ) );
Читайте документацию!
--- ifmail v.2.15
* Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/3300956ce4cc.html, оценка из 5, голосов 10
|