Программирование > Perl

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

(1/6) > >>

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-таймстамп" встречаюсь первый раз

Навигация

[0] Главная страница сообщений

[#] Следующая страница