|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Sergey Shibeko 2:5031/32 07 Mar 2002 20:04:53
To : Victor Wagner
Subject : Re: Date
--------------------------------------------------------------------------------
VW> Тогда perldoc Date::Calc.
VW> Вообще, ежели бы ты этот вопрос (который в Subj) задавал бы не в эху,
VW> а CPAN-овскому modules browser-у, ответ был бы получен гораздо быстрее.
Как обычно, чтобы правильно задать вопрос, нужно знать половину ответа.
Смотрел я там, похоже невнимательно.
Примерно подобное получилось, может кому пригодится:
use Date::Calc qw(:all);
my ($day, $mon, $year) = (localtime(time))[3..5];
Date_to_Days($year,$mon,$day);
($year,$mon,$day) = Add_Delta_Days(5,4,3, Date_to_Days($year,$mon,$day) - 1);
printf "%04i-%02i-%02i\n", $year + 1900, $mon + 1, $day;
Всем спасибо за помошь!
--- ifmail v.2.14.os-p7
* Origin: Анархия - мать порядка (2:5031/32@fidonet)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
| Тема: |
Автор: |
Дата: |
|
Date |
Sergey Shibeko |
05 Mar 2002 14:37:54 |
 Re: Date |
wwk@kyivstar.net |
05 Mar 2002 16:11:37 |
 Re: Date |
Artem Chuprina |
05 Mar 2002 16:19:51 |
 Re: Date |
Sergey Shibeko |
07 Mar 2002 12:55:28 |
 Re: Date |
Nikolay Pichtin |
07 Mar 2002 17:42:17 |
|
Re: Date |
Nikolay Pichtin |
05 Mar 2002 18:19:12 |
|
Re: Date |
Andrey Sapozhnikov |
05 Mar 2002 20:26:58 |
|
Re: Date |
Sergey Shibeko |
07 Mar 2002 13:12:46 |
|
Re: Date |
Andrey Sapozhnikov |
07 Mar 2002 18:48:54 |
|
Re: Date |
Artem Chuprina |
07 Mar 2002 19:19:46 |
|
Re: Date |
Andrey Sapozhnikov |
07 Mar 2002 22:10:36 |
|
Re: Date |
Sergey Shibeko |
07 Mar 2002 20:10:05 |
|
Re: Date |
Sergey Shibeko |
07 Mar 2002 13:04:59 |
|
Re: Date |
Victor Wagner |
07 Mar 2002 14:27:10 |
|
Re: Date |
Sergey Shibeko |
07 Mar 2002 20:04:53 |
|
Re: Date |
Nikolay Pichtin |
07 Mar 2002 17:46:22 |
|
Re: Date |
Sergey Shibeko |
07 Mar 2002 20:14:45 |
|
Re: Date |
Nikolay Pichtin |
07 Mar 2002 23:05:31 |
|
|
