|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Artur Penttinen 2:5020/400 06 Dec 2004 00:56:45
To : Edward Yudanov
Subject : Re: UTC -> date
--------------------------------------------------------------------------------
On Mon, 06 Dec 2004 00:12:00 +0300 Edward Yudanov
<Edward.Yudanov@p35.f11.n5007.z2.fidonet.org> writes to Valentin Nechayev:
EY> Категорически приветствую тебя, Valentin Nechayev! Как сейчас
EY> помню Sun, 05 Dec 2004 18:31:43 +0700 ты писал(а):
EY> Дан файлик следующего содержания: ====~/paused 2:5007/16.6
EY> 1061449673 1061103878 2:5007/16.9 1062745518 1062140690
VN> [...]
EY> Как можно получить более "человечный" формат даты?
VN> perldoc -f localtime
EY> Точно! Забыл... Спасибо! Теперь можно узнать как наиболее
EY> правильно можно оптимизировать получившееся? Уж больно криво оно
EY> выглядит :(
EY> ====~/conv_paused.pl #!/usr/bin/perl -w use POSIX qw(strftime);
EY> use strict; open(PAUSED,"< paused"); while(<PAUSED>){ chomp;
EY> if(/^([\d:.\/]+)\t(\d+?)\t(\d+?)$/){ my ($addr, $first_date,
EY> $second_date) = split(/\t/); print $addr,"\t"; if ($first_date ==
EY> 0) {print "none\t";} else {print strftime("%e %b %Y",
EY> localtime($first_date)),"\t";} if ($second_date == 0) {print
EY> "none\n";} else{print strftime("%e %b %Y",
EY> localtime($second_date)),"\n";}
EY> }}
EY> close(PAUSED); ====\
while (<PAUSED>) {
chomp;
my ($n,$f,$t) = split "\\s+";
printf "%s\t%s\t%s\n",$n,
$f ? strftime("%e %b %Y",localtime($f)) : "none",
$t ? strftime("%e %b %Y",localtime($t)) : "none";
}
wbw,artur (Kislev 22, 5765)
--
IZ> Ты видел, как женщина кидает камень?
Видел. С десяти метров в банку от пива. 9 раз из 10. Ух, какая была
женщина... А некоторые мужчины простите за выражение, в писсуар с
метра попасть не могут.
--- ifmail v.2.15dev5.3
* Origin: ase,cap gemini,ernst&young (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
