|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Edward Yudanov 2:5007/11.35 06 Dec 2004 01:12:00
To : Valentin Nechayev
Subject : Re: UTC -> date
--------------------------------------------------------------------------------
Как сейчас помню Sun, 05 Dec 2004 18:31:43 +0700 ты писал(а):
EY>> Дан файлик следующего содержания:
EY>> ====~/paused
EY>> 2:5007/16.6 1061449673 1061103878
EY>> 2:5007/16.9 1062745518 1062140690
VN>[...]
EY>> Как можно получить более "человечный" формат даты?
VN>perldoc -f localtime
Точно! Забыл... Спасибо!
Теперь можно узнать как наиболее правильно можно оптимизировать
получившееся? Уж больно криво оно выглядит :(
====~/conv_paused.pl
#!/usr/bin/perl -w
use POSIX qw(strftime);
use strict;
open(PAUSED,"< paused");
while(<PAUSED>){
chomp;
if(/^([\d:.\/]+)\t(\d+?)\t(\d+?)$/){
my ($addr, $first_date, $second_date) = split(/\t/);
print $addr,"\t";
if ($first_date == 0) {print "none\t";}
else {print strftime("%e %b %Y", localtime($first_date)),"\t";}
if ($second_date == 0) {print "none\n";}
else{print strftime("%e %b %Y", localtime($second_date)),"\n";}
}}
close(PAUSED);
====\
--
|> Усанов - Танцы на воде 2004.ogg
--- slrn/0.9.8.0-asp (Linux)
* Origin: [ RLU #316941 http://fido.khakassia.ru/ ] (2:5007/11.35)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
