问通过将小时添加到perl中的当前日期来计算下一个业务日期。

EN

sub add_time {
    my $time = shift; #Assuming timestamp in seconds
    my $add = shift;  #assuming seconds

    while ( $add > 0 ) {
        my $day = get_day_record($time);
        my $time_in_day_available = time_in_day ($time, $day);
        if ($add > $time_in_day_available) {
            $add = $add - $time_in_day_available;
            $time = get_timestamp_of_next_day($time);
        } else {
            $time = start_time_of_day ($time, $day) + $add;
            $add = 0;
        }
    }
    return $time;
}

sub get_day_record {
    my $time = shift;
    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
                                                localtime($time);

    if (check_for_holidays($time)) {
          return { Name  => 'holiday',
                 Start => undef,
                 End   => undef}
    } else {
        return $sansSLA{$wday};
    }
}

sub check_for_holidays {
    return ;
}


sub time_in_day {
    my $time = shift ;
    my $day = shift;
    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
                                                localtime($time);

    return 0
        unless $day->{Start};

    my ($end_hour, $end_min) = split(':', $day->{End});
    my $end_work_time = timelocal(0,$end_min,$end_hour,$mday,$mon,$year);

    return 0
        if $end_work_time < $time;

    my $start_work_time = start_time_of_day ($time, $day);

    return $end_work_time - $start_work_time;
}

sub start_time_of_day {
    my $time = shift ;
    my $day = shift;
    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
                                                localtime($time);


    my ($start_hour, $start_min) = split(':', $day->{Start});
    my $start_work_time = timelocal(0,$start_min,$start_hour,$mday,$mon,$year);

    return $time 
        if $start_work_time < $time;

    return $start_work_time;
}

sub get_timestamp_of_next_day {
    my $time = shift;
    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
                                                localtime($time);
    return timelocal_nocheck(0,0,0,$mday+1,$mon,$year);
}   

use strict;
use warnings;
use Time::Local qw(timelocal timelocal_nocheck);
my %sansSLA = (
    1 => { Name  => 'Monday',
            Start => '8:00',
            End   => '18:00'},
    2 => { Name  => 'Tuesday',
            Start => '8:00',
            End   => '18:00'},
    3 => { Name  => 'Wednesday',
            Start => '8:00',
            End   => '18:00'},
    4 => { Name  => 'Thursday',
            Start => '8:00',
            End   => '18:00'},
    5 => { Name  => 'Friday',
            Start => '8:00',
            End   => '18:00'},
    6 => { Name  => 'Saturday',
            Start => undef,
            End   => undef},
    0 => { Name  => 'Sunday',
            Start => undef,
            End   => undef},
    holidays => [qw(01-01 05-01 05-08 07-14 08-15 11-11 12-25 2022-05-18 2022-05-26 2023-0410 2023-04-10 2023-05-18 2024-04-01 2024-05-09 2025-04-21 2025-05-29 2026-04-06 2026-05-14 2027-03-29 2027-05-06 2028-04-17 2028-05-25 2029-04-02 2029-05-10 2030-04-22 2030-05-30)],
);

my $start = timelocal (0,0,0,18,06,122); # this is the 18 07 2022

print scalar localtime(add_time($start, 52*60*60));