Perl localtime error

Question

Я получаю эпоху в 28 февраля ^th 2009, , а затем добавьте к ней количество секунд в неделю. Но затем я получаю 4 марта ^th вместо 7 марта ^th. Зачем?

Ниже приведен код:

#!/usr/bin/perl 
use POSIX; 

my $hours_per_day = 24; 
my $hours_per_week = 168; 
my $seconds_per_hour = 3600; 
my $seconds_per_week = ($hours_per_week * $seconds_per_hour); 

#begin at my first week 
$epoch_seconds = POSIX::mktime(0,0,12,28,2,109); 

for(my $cline = 1; $cline <= 250; $cline++) { 
    ($sec,$min,$hour,$mday,$month, 
    $year,$wday,$yday,$isdst) = localtime($epoch_seconds); 

    $year += 1900; 
    print STDOUT "$cline <=> $year/$month/$mday\n"; 

    $epoch_seconds += $seconds_per_week; 
} 

Answer 1

Вы, начиная с 28 марта 2009 года, а через неделю это 4 апреля, 2009.

use POSIX; 

my $hours_per_day=24; 
my $hours_per_week=168; 
my $seconds_per_hour=3600; 
my $seconds_per_week=($hours_per_week*$seconds_per_hour); 

#begin at my first week 
my $epoch_seconds=POSIX::mktime(0,0,12,28,2,109); 

for(my $cline=1; $cline<=250; $cline++) { 
    my ($sec,$min,$hour,$mday,$month, 
    $year,$wday,$yday,$isdst) =localtime($epoch_seconds); 

    print strftime("%A, %B %e, %Y\t", localtime($epoch_seconds)); 
    $year+=1900; 
    print STDOUT "$cline <=> $year/$month/$mday\n"; 

    $epoch_seconds+=$seconds_per_week; 
} 

PS: Вы действительно должны использовать strftime для форматирования даты. См. perldoc POSIX и выполните поиск/strftime /.

Answer 2

Не каждую неделю ровно $ seconds_per_week длинные (Leap лет и т.д.), вы должны использовать/библиотека/функциональный модуль, который делает расчеты для вас.

Как описано here или here. Удачи!