|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Vladimir Podgorny 2:5020/400 05 Jan 2001 16:33:35 To : All Subject : Re: Data -------------------------------------------------------------------------------- Ivan Frolcov <frolcov@dsd.fbm.msu.ru> wrote: > >> 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] ) ); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Уверен что это сработает? - вообще то localtime отдает массив с 9-ю элементами... BTW то что выше написано не то же самое делает? Только прагма POSIX не пользуется... > Читайте документацию! -- VP992-RIPE --- ifmail v.2.15dev5 * Origin: Adamant ISP news server (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/12034f916bc93.html, оценка из 5, голосов 10
|