[Comm] perl

[Alexey Morsov]

Anton Gorlov wrote:
> Здравствуйте, community.
> 
> Э... man что и на предмет чего... что б дату из "time" (1117632255)
> перевести в более человеческое. perl

($sec, $min, $hour, $day, $mon, $year, $wday, $yday, $isdst)
       = localtime($_[0]);

    if (length($day) == 1) { $day ='0'.$day; }
    if (length($mon) == 1) { $mon ='0'.++$mon; }
    if (length($min) == 1) { $min ='0'.$min; }
    if (length($sec) == 1) { $sec ='0'.$sec; }
    else { $mon++; }

    $year += 1900;


-- 
Всего наилучшего,
Системный Администратор ЗАО "ИК "РИКОМ-ТРАСТ"
Алексей Морсов
ICQ: 196766290
Jabber: Samurai на jabber.pibhe.com
http://www.ricom.ru
http://www.fondmarket.ru