ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Vladimir Podgorny                    2:5020/400     05 Jan 2001  14:51:42
 To : All
 Subject : Re: Data
 -------------------------------------------------------------------------------- 
 

 Ivan Frolcov <frolcov@dsd.fbm.msu.ru> wrote:
 
 > VB> ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksi
 > VB> ze, $blocks) = stat($file);
 > VB>  ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime($mtime);
 > VB>  $mon++;
 > VB>  $year = substr("$year", -2);
 > VB>  $lastproxyupdate = "$mon/$mday/$year";
 > VB> +++END CUT
 > VB> Hо ведь это не правильно!
 > Угу.
 
 > VB> А как правильно?
 
 > use POSIX;
 > print strftime("%m/%d/%y",localtime());
 
 IMHO человек просил не это... Опять же IMHO:
 
 sub getmdate() {
   ( -f $file ) ? (my ($day,$mon,$year)=localtime((stat($file))[9])) : return();
   return(sprintf("%u0.4/%u0.2/%u0.2",$year,$mon,$day));
 }
 
 -- 
 VP992-RIPE
 --- ifmail v.2.15dev5
  * Origin: Adamant ISP news server (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