ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Michael B. Babakov                   2:5020/400     03 Jan 2001  21:16:49
 To : All
 Subject : Re: Data
 -------------------------------------------------------------------------------- 
 

 Vitaly Belashov wrote:
 
 > 
 > 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о ведь это не правильно!
 > 
 > А как правильно?
 
  Если это работает, значит это правильно!
 
 Если нужны более сложные вычисления над датами, то Date::Manip.
 
 -- 
 С уважением,
  Михаил Бабаков
 
 - ---
 e-mail: M.Babakov@sochi.net.ru
 http://sochi.net.ru/~mike
 --- ifmail v.2.15dev5
  * Origin: I'ts my home! :) (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