ru.cgi.perl

 
 - RU.CGI.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)
 
 

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