Увеличение даты

[Yaroslav]

Подскажите, есть ли какой то другой пуь добавить к localtime(time) определенное количество дней кроме как писать програму с помощью if & else

[Chs]

1. Date::Calc
2. Прибавить к unix-таймстампу количество секунд соответствующее необходимому количеству дней.

[AliMamed]

посчитать количество секунд в количестве дней и прибавить.

[commander]

#!/usr/bin/perl -w
use strict;
use Time::Local;
my $date="2004-03-30";
my ($year, $mon, $day) = split/\\-/, $date;
my $unix_time=timelocal(0, 0, 0, $day, $mon, $year);
$unix_time+=86400;
($day, $mon, $year) = ((localtime($unix_time))[3,4,5]);
$year+=1900;
$date= sprintf("%04d-%02d-%02d", $year, $mon, $day);
print "$date";

[Yaroslav]

Chs:
1. Date::Calc

устрашающее название - описания не нашел, только сам пакет.

Chs:
2. Прибавить к unix-таймстампу количество секунд соответствующее необходимому количеству дней.

можно примерчик?
с таким название как "unix-таймстамп" встречаюсь первый раз

[Yaroslav]

AliMamed:
посчитать количество секунд в количестве дней и прибавить.

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

commander:

спасибо за пример, как раз он и страдает всеми перечисленными выше проблемами.

[commander]

Yaroslav
пардон... немного не так... :
#!/usr/bin/perl -w
use strict;
use Time::Local;
my $date="2004-02-29";
my ($year, $mon, $day) = split/\\-/, $date;
$mon-=1;
my $unix_time=timelocal(0, 0, 0, $day, $mon, $year);
$unix_time+=86400; #ïðèáàâëÿåì îäèí äåíü...
($day, $mon, $year) = ((localtime($unix_time))[3,4,5]);
$year+=1900;
$mon+=1;
$date= sprintf("%04d-%02d-%02d", $year, $mon, $day);
print "$date";

на этот пример никаких проверок на високосный год ставить не НАДО!!!
perldoc Time::Local

в следующий раз прежде чем бросаться сорказными словоизлеяниями... вроде этого:

спасибо за пример, как раз он и страдает всеми перечисленными выше проблемами

попробуйте разобраться в ответе...

[NeoNox]

Можно и так, но проще всего:
print localtime(time);                #сейчас
print localtime(time+24*60*60);#завтра
print localtime(time+24*60*60*2);    #послезавтра
а дальше делай что хочеш.

[Yaroslav]

Хорошо быть новичком.
Искал одно, нашел другое. Посмотрите, как такой вариант?
Я правда с трудом соображаю что он делает, но без 2 и 3 строчки работать не хочет.
use HTTP:: Date;
$string = time2str($time);
$time = str2time($string);
$time1=$time+186400;
$string2 = time2str($time1);

[Меняздесьдавнонет]

этот способ подвержен тем же проблемам, что ты перечислил.
примерный способ тебе сказали.
Для точных тебе привели модуль. Пользуйся им.
Или ты хочешь, чтобы тебе здесь написали код этого модуля со всеми проверками на кол-во дней, високосность и переход на летнее время?

[NeoNox]

[moderator]
Брейк! Все кроме ответов я уберу.
Ругаться и выяснять отношения в приват.

[NeoNox]

Yaroslav
наверняка есть сотня вариантов как добиться того что тебе нужно.
я даже тебе более скажу, большинство модулей для работы со временем работают по одному алгоритму или наследуют модули более высокого уровня. разберись с каждым (я имею ввиду исходный код) из преведенных и ты поймеш как они работают и что ближе всего тебе подходит.

[Yaroslav]

NeoNox:
Можно и так, но проще всего:
print localtime(time); #сейчас
print localtime(time+24*60*60);#завтра
print localtime(time+24*60*60*2); #послезавтра
а дальше делай что хочеш.

Вот огромное спасибо и ненадо придумывать велосыпед
я как то не знал что можно добавлять именно к (time).

[AliMamed]

я с вас обалдеваю уважаемая редакция.

дайджест ответов
AliMamed:посчитать количество секунд в количестве дней и прибавить
Yaroslav это первое что пришло в голову, но в таком случае скрипт получается очень громозкий, так как нужно учитывать не только месяцы, но и высокосный год
NeoNox print localtime(time+24*60*60*2); #послезавтра
Yaroslav Вот огромное спасибо

такое ощущение что на разных языках разговариваем

[Yaroslav]

еще такой вопрос. если есть дата к примеру 20-05-2004
можно ли сравнить ее с localtime(time) что б разница выводилась в количистве дней?
или же только грубое и не точное сравнение типа
.....localtime(time);
20+31-$mday;