Re: [Comm] perl

Re: [Comm] perl

[Aleksander N. Gorohovski]

On Wed, 1 Jun 2005 16:50:30 +0400, Anton Gorlov <Pnz.Stalker@mail.ru>  
wrote:

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

@a=localtime;

[Comm] perl

[Anton Gorlov]

Здравствуйте, community.

Э... man что и на предмет чего... что б дату из "time" (1117632255)
перевести в более человеческое. perl

-- 
С уважением,
 Anton                          mailto:Pnz.Stalker@mail.ru
                                     FIDO: 2:5059/37

Re: [Comm] perl

[Alexey I. Froloff]

[-- Attachment #1: Type: text/plain, Size: 546 bytes --]

* Anton Gorlov <Pnz.Stalker@> [050601 16:51]:
> Э... man что и на предмет чего... что б дату из "time" (1117632255)
> перевести в более человеческое. perl
info date, examples, последний пример.

-- 
Regards, Sir Raorn.
-------------------
>Вроде reiser4 полностью журналируемый, не только структура файловой
>системы, но и операции с содержимым файлов. [...]
Пожалуйста, все "вроде" выбросьте и говорите только исходя из собственного
опыта. Файловые системы не терпят пересказа и сослагательного наклонения.
		-- ab in devel-kernel@

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]

Re: [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

Re: [Comm] perl

[Afanasov Dmitry]

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

use POSIX qw(strftime);
print strftime "%T %H", localtime time;

-- 
  С уважением,
  Афанасов Дмитрий

Re[2]: [Comm] perl

[Anton Gorlov]

Здравствуйте, Alexey.

Вы писали 1 июня 2005 г., 16:54:11:

> * Anton Gorlov <Pnz.Stalker@> [050601 16:51]:
>> Э... man что и на предмет чего... что б дату из "time" (1117632255)
>> перевести в более человеческое. perl
> info date, examples, последний пример.


Хм. и как это в перл засунуть?

-- 
С уважением,
 Anton                          mailto:Pnz.Stalker@mail.ru
                                     FIDO: 2:5059/37

Re: [Comm] perl

[Alexey I. Froloff]

[-- Attachment #1: Type: text/plain, Size: 429 bytes --]

* Anton Gorlov <Pnz.Stalker@> [050601 18:08]:
> >> Э... man что и на предмет чего... что б дату из "time" (1117632255)
> >> перевести в более человеческое. perl
> > info date, examples, последний пример.
> Хм. и как это в перл засунуть?
Пардон, просто не так понял ;-)

-- 
Regards, Sir Raorn.
-------------------
> Subject: Re: [devel] [JT]^[JT] О судьбах... в том числе и питона.
[JT]^[JT] == 0
		-- ldv in devel@

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]

Re: [Comm] perl

[Alex Gorbachenko]

[-- Attachment #1: Type: text/plain, Size: 163 bytes --]

On Wed, 1 Jun 2005 18:07:10 +0400
Anton wrote:

> Хм. и как это в перл засунуть?

perldoc -f system

-- 
np: Iron Maiden - The Wicker Man (Album Version)

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]

Re: [Comm] perl

[Alex Gorbachenko]

[-- Attachment #1: Type: text/plain, Size: 396 bytes --]

On Wed, 1 Jun 2005 18:18:03 +0400
Alex wrote:

> > Хм. и как это в перл засунуть?

> perldoc -f system

либо, если вы хотите "чистый" perl, что-то типа:

$timestamp=1117637418
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime
($timestamp); 
$year=$year+1900; 
print "$hour\:$min\:$sec $mday \.$mon\.$year\n";

-- 
np: Iron Maiden - The Wicker Man (Album Version)

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]

Re: [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;

Re: [Comm] perl

[Alexey Morsov]

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