|
ru.unix
- RU.UNIX ----------------------------------------------------------------------
From : Sergey Sysoev 2:5005/42.46 17 Nov 2003 20:02:47
To : Alex Povolotsky
Subject : вывод даты на пеpле
--------------------------------------------------------------------------------
AP> perldoc POSIX
AP> искать strftime.
AP> HИ В КОЕМ СЛУЧАЕ не городить свой огород на два экрана с
AP> преобразованием даты и 8 ошибками в алгоритме обсчета.
хм... ну экрана совсем не два..
use Time::localtime;
print arpa_date(time());
exit();
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
Sergey
--- GEcho/32 1.20/Pro
* Origin: . FreeBSD RuleZz . e-mail ssa@avtf.org . icq 652525 . (2:5005/42.46)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
