|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Valery Kondakoff 2:5020/163 02 Feb 2002 18:36:48
To : vitus
Subject : Сравнение дат?
--------------------------------------------------------------------------------
02 Feb 02 11:44, vitus@ice.ru wrote to Valery Kondakoff:
VK>> Господа, помогите советом: на входе в скрипт я получаю количество
VK>> дней (например, десять). Потом, я просматриваю логи за указанное
VK>> количество времени и всасываю нужную информацию.
VK>> Пока я решаю эту проблему так: отсчитываю десять дней назад и
VK>> перевожу дату в epoch seconds. Потом, каждую встреченную в логах
VK>> дату тоже перевоху в epoch seconds и сравниваю: если дата из логов
VK>> больше, то начинаю "сосать" данные.
VK>> В логи дата пишется так: 25 Jan 02.
v> В принципе, можно привести дату к текстовой строке вида YYYY.MM.DD
v> Тогда даты будут прекрасно сравниваться как строки лексикографически.
Так, или есть более простой/правильный вариант?
$period = 10;
$period = calculate_date($period) if $period;
sub calculate_date {
$now_string = localtime(time() - (24 * 60 * 60 * $_[0]));
$now_string =~ /^\w+\s(\w+)\s(\s?\d+).*(\d\d)$/;
$day = sprintf("%02d", $2);
return("$day $1 $3");
}
Best regards,
Valery Kondakoff
--- GoldED+/W32 1.1.5-1201
* Origin: ----> После прочтения - съесть!.. <---- (2:5020/163)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
