From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Message-ID: <429DB67C.6090502@ricom.ru> Date: Wed, 01 Jun 2005 17:22:04 +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> In-Reply-To: <39212803.20050601165030@mail.ru> Content-Type: text/plain; charset=windows-1251; 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: Wed, 01 Jun 2005 13:22:07 -0000 Archived-At: List-Archive: List-Post: 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