Perl Incorrect day generated by localtime

Question

Today I find following perl script running incorrect. Current actual datetime is 20140814 13:19 But it returns: 2014-7-14-13-19-15 (the month value 7 is 1 less than actual value 8)

MY OS: win7

sub GetFileNameDate {
    my ($sec,$min,$hour,$day,$month,$yr19,@rest) =   localtime;
    return sprintf "%s-%s-%s-%02d-%02d-%02d", ($yr19 + 1900), $month, $day, $hour, $min, $sec;
}

Answer 1

It is not incorrect it is like the month values starts from 0

sub GetFileNameDate {
    my ($sec,$min,$hour,$day,$month,$yr19,@rest) =   localtime;
    return sprintf "%s-%s-%s-%02d-%02d-%02d", ($yr19 + 1900), ($month +1), $day, $hour, $min, $sec;
}

$month is the month itself, in the range 0..11 with 0 indicating January and 11 indicating December.

You can check the manual