|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Artem Chuprina 2:5020/400 06 Dec 2004 00:58:50
To : Edward Yudanov
Subject : Re: UTC -> date
--------------------------------------------------------------------------------
Edward Yudanov -> Valentin Nechayev @ Mon, 06 Dec 2004 00:12:00 +0300:
EY> Теперь можно узнать как наиболее правильно можно оптимизировать
EY> получившееся? Уж больно криво оно выглядит :(
EY> ====~/conv_paused.pl
EY> #!/usr/bin/perl -w
EY> use POSIX qw(strftime);
EY> use strict;
EY> open(PAUSED,"< paused");
EY> while(<PAUSED>){
EY> chomp;
EY> if(/^([\d:.\/]+)\t(\d+?)\t(\d+?)$/){
EY> my ($addr, $first_date, $second_date) = split(/\t/);
EY> print $addr,"\t";
EY> if ($first_date == 0) {print "none\t";}
EY> else {print strftime("%e %b %Y", localtime($first_date)),"\t";}
EY> if ($second_date == 0) {print "none\n";}
EY> else{print strftime("%e %b %Y", localtime($second_date)),"\n";}
Отделенный абзац заменить на
print "$1\t",
($2 ? strftime("%e %b %Y", localtime($2)) : "none"), "\t",
($3 ? strftime("%e %b %Y", localtime($3)) : "none"), "\n";
Лучше вряд ли получится.
EY> }}
EY> close(PAUSED);
EY> ====\
--
Artem Chuprina <ran{}ran.pp.ru>
--- ifmail v.2.15dev5.3
* Origin: Leninsky 45 home network (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
