用 Perl 计算从今天直到某天的工作日数量

罗列从今天直到某日的所有日期：
perl -MDate::Calc=Today,Add_Delta_Days,Day_of_Week -le '++$x && Day_of_Week(Add_Delta_Days(Today,$x))~~[qw(1 2 3 4 5)] && print $x until Add_Delta_Days(Today,$x) ~~ @ARGV' 2009 6 6 | wc -l

没有 wc 就计算一下调用 print 的次数也可以。