ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Vitaly Belashov                      2:5020/400     03 Jan 2001  20:33:51
 To : All
 Subject : Data
 -------------------------------------------------------------------------------- 
 

 Hi ALL!
 
 Hаверное знают все :)
 
 Как в PERL получить дату файла в удобоваримом виде.
 например MM/DD/YY
 
 Я делаю так
 ++++CUT
 
 ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,
 $blocks) = stat($file);
  ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime($mtime);
  $mon++;
  $year = substr("$year", -2);
  $lastproxyupdate = "$mon/$mday/$year";
 +++END CUT
 
 Hо ведь это не правильно!
 
 А как правильно?
 
 Спасибо!
 Виталий
 --- ifmail v.2.15dev5
  * Origin: Demos online service (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Data   Vitaly Belashov   03 Jan 2001 20:33:51   Re: Data   Michael B. Babakov   03 Jan 2001 21:16:49   Data   Ivan Frolcov   04 Jan 2001 12:19:32   Re: Data   Vladimir Podgorny   05 Jan 2001 14:51:42   Re: Data   Ivan Frolcov   05 Jan 2001 15:44:19   Re: Data   Vladimir Podgorny   05 Jan 2001 16:33:35   Re: Data   Ivan Frolcov   05 Jan 2001 17:26:49