|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Vladimir Podgorny 2:5020/400 17 Oct 2002 11:00:52
To : Alexei Vi. Baikalov
Subject : Re: Конверторы дат.
--------------------------------------------------------------------------------
Alexei Vi. Baikalov <madman@mail.enisey.ru> wrote:
> А вот как перевести 10-NOV-02 в секунды! Вот самый главный смысл моего
> письма.
> Hет ли модуля котрый это делает просто. А не через Ж
> Hе уж то самому писать! :) - Щютка. :)))
sub date_to_sec($) {
use Time::Local qw();
my $date = shift or die 'Usage: sec_to_date("DD-MMM-YY")';
my %month = qw(
JAN 0
FEB 1
...
NOV 10
DEC 11
);
(my @date) = $date =~ /^(\d+)-(\w+)-(\d+)$/;
$date[1] = $month{$date[1]};
# Вот здесь += 0 лучше не трогать - пару раз накололся с RRDs, с тех
# пор явное преобразование string-to-integer считаю весьма полезным.
# BTW после этого комплейна аналогичную проверку Tobi сделал в rrdtool.
$date[2] += ($date[2] < 70 ? 100 : 0);
return Time::Local::timelocal 0, 0, 0, @date;
}
my $sec = date_to_sec '10-NOV-02';
P.S. There are more ways to ...
--
Vladimir A. Podgorny
Adamant ltd. deputy director (technical)
phone/fax: +380(44)5667722
--- ifmail v.2.15dev5
* Origin: Adamant ISP news server (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: Конверторы дат.