[Comm] perl

[Aleksander N. Gorohovski]

On Wed, 01 Jun 2005 17:22:04 +0400, Alexey Morsov <samurai на ricom.ru> wrote:

>
> 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++; }

Sorry,

$mon++;
for($day,$mon,$min,$sec){ $_="0$_" if length($_) == 1 }

:-)

>
>     $year += 1900;