[완료]Perl로 두 날짜 사이의 주말과 주일 뺀 일하는 날들의값 구하기 + 공휴일 포함하기

#!/usr/bin/perl -w
 
use strict;
use warnings;
 
package main;
 
use Date::Calc qw(:all);
 
sub get_biz_days {
    my @ymd1 = ($_[0], $_[1], $_[2]);
    my @ymd2 = ($_[3], $_[4], $_[5]);
 
    my $days = &Delta_Days( @ymd1, @ymd2 );
#    print "two different days delta is $days\n";
 
    use integer;
    my $week_count = $days / 7; # 완전한 7days(1주일) count
 
    my $biz_count = $week_count * 5;  # biz_count 초기화
    my $mod_count = $days % 7;        # 자투리 day
 
#    print "mod_count is $mod_count\n";
 
    my $w_day = Day_of_Week(@ymd1);
 
    for my $e (1 .. $mod_count) {         # 자투리 day들에 대해 주말 확인
        $biz_count += 1 if ($w_day < 6);  # 주말이 아니면 $biz_count 증가
        $w_day += 1;
        $w_day = 1 if (($w_day) > 7);  # 다음날이 sunday를 초과하면 monday로 다시 설정
    }
 
    return $biz_count;
}
 
my $biz_days = get_biz_days((2009,9,11), (2009,9,14));
print "biz_days is $biz_days \n";