Ещё один вопрос по Perl

не знаю как там в перле, но обычно это делается примерно так:

перевести текстовую строку (запись с временем и еще что-либо подобное) в юникс-время в секундах (кол-во секунд начиная с какого-то древнего года по нужный день), вычесть из этого времени 24 * 60 * 60 секунд, преобразовать время в нужный вам формат (запись, текстовая строка), если же ваш ЯП имеет классы для работы с датой-временем, то еще более все упрощается, курите доки по вашему ЯП

зы: если че напутал с терминологией, звиняйте, не программер, просто сочуствующий :)

>не знаю как там в перле, но обычно это делается примерно так:
>перевести текстовую строку (запись с временем и еще что-либо
>подобное) в юникс-время в секундах (кол-во секунд начиная с
>какого-то древнего года по нужный день), вычесть из этого времени 24
>* 60 * 60 секунд, преобразовать время в нужный вам формат (запись,
>текстовая строка), если же ваш ЯП имеет классы для работы с


Вы наверное имели в виду отнять 30 дней от данного числа. А что делать с первым февралем? А с месяцами с тридцати одним днем?

my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
--$mon;

и, если нужно, переобразовываем в нужный формат.

> my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = 
> localtime(time);
> --$mon; 

А на секунды это распростарняется?
Я попробовал сделать для секунд --$sec и получил -1... 

посмотри на CPAN-овский модуль Date::Calc

да хоть на тот же CGI::Cookie

Ну, понятно, что надо проверить на отрицательный результат и действовать в соответсвии с результатом проверки.

> посмотри на CPAN-овский модуль Date::Calc

Вот это то что надо! :) Спасибо!

2moderators: дайте мне +5 to score за это :)))