从Perl中的localtime中丢弃一秒

use strict;
use warnings;

my ($sec, $min, $hour, $mday, $mon, $year) = localtime(time);

# 丢弃一秒
$sec--;

# 调整时间
if ($sec < 0) {
    $sec += 60;
    $min--;
}

if ($min < 0) {
    $min += 60;
    $hour--;
}

if ($hour < 0) {
    $hour += 24;
    $mday--;
}

if ($mday < 1) {
    $mon--;
    if ($mon < 0) {
        $mon += 12;
        $year--;
    }
    $mday = days_in_month($mon, $year);
}

# 打印调整后的时间
printf("Adjusted time: %04d-%02d-%02d %02d:%02d:%02d\n", $year+1900, $mon+1, $mday, $hour, $min, $sec);

# 计算指定月份的天数
sub days_in_month {
    my ($month, $year) = @_;
    my @month_days = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
    my $days = $month_days[$month];
    $days++ if $month == 1 && (($year % 4 == 0 && $year % 100 != 0) || $year % 400 == 0);
    return $days;
}