|
ru.unix
- RU.UNIX ----------------------------------------------------------------------
From : Alex Povolotsky 2:5020/145 22 Nov 2003 18:14:24
To : Sergey Sysoev
Subject : Re: вывод даты на пеpле
--------------------------------------------------------------------------------
.RFC-X-Complaints-To: usenet@tarkhil.over.ru
.RFC-NNTP-Posting-Date: Sat, 22 Nov 2003 14:14:24 +0000 (UTC)
.RFC-User-Agent: Gnus/5.1002 (Gnus v5.10.2) XEmacs/21.1 (Cuyahoga Valley,\n
berkeley-unix)
.RFC-Cancel-Lock: sha1:SWESK2n9YUTVLZz/EioQu0HBQEc=
From: Alex Povolotsky <tarkhil@over.ru>
Sergey Sysoev <Sergey.Sysoev@p46.f42.n5005.z2.fidonet.org> writes:
> AP> HИ В КОЕМ СЛУЧАЕ не городить свой огород на два экрана с
> AP> преобразованием даты и 8 ошибками в алгоритме обсчета.
>
> хм... ну экрана совсем не два..
Это не по-пасански. По-пасански пересчитывать результат, выданный функцией
time ;-)
> sub arpa_date
> {
> my $gm = localtime(shift);
> my @Day_name = ("Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat");
> my @Month_name = (
> "Jan", "Feb", "Mar", "Apr", "May", "Jun",
> "Jul", "Aug", "Sep", "Oct", "Nov", "Dec");
>
> sprintf("%-3s, %02d %-3s %4d %02d:%02d:%02d",
> $Day_name[$gm->wday],
> $gm->mday, $Month_name[$gm->mon], 1900+$gm->year,
> $gm->hour, $gm->min, $gm->sec);
> }
>
> В результате Sat, 15 Nov 2003 00:55:51
print POSIX::strftime("%a, %d %b %Y %T", localtime(time()));
КСТАТИ, должно быть еще и быстрее. Вызывается функция strftime, писанная на
C.
--
Alex.
--- ifmail v.2.15
* Origin: Minas Tirith (2:5020/145@fidonet)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
