Re: [Comm] perl

[Alexey Morsov <samurai@ricom.ru>]

Aleksander N. Gorohovski wrote:
>>($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 }
ну как там было... there more then one way to do the same thing  или как 
то так ;)
Писалось в свое время в попыхах так что - что выросло то выросло.

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