From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Message-ID: <429EAF22.5080101@ricom.ru> Date: Thu, 02 Jun 2005 11:02:58 +0400 From: Alexey Morsov User-Agent: Mozilla Thunderbird 1.0.2 (Windows/20050317) X-Accept-Language: en-us, en MIME-Version: 1.0 To: community@altlinux.ru Subject: Re: [Comm] perl References: <39212803.20050601165030@mail.ru> <429DB67C.6090502@ricom.ru> In-Reply-To: Content-Type: text/plain; charset=KOI8-R; format=flowed Content-Transfer-Encoding: 8bit X-Virus-Scanned: by amavisd-new at ricom.ru X-BeenThere: community@altlinux.ru X-Mailman-Version: 2.1.5 Precedence: list Reply-To: community@altlinux.ru List-Id: Mailing list for ALT Linux users List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Thu, 02 Jun 2005 07:03:01 -0000 Archived-At: List-Archive: List-Post: 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