perl - 我应该使用哪个 CPAN 模块来提前计算几个工作日

Question

这是一个两部分的问题:

我想在 Perl 中提前 5 个工作日计算(比如说)。兼顾周末和节假日。 Date::Manip这样做，但非常重量级。有没有更轻的模块可以很好地做到这一点？

如果 Date::Manip确实是正确的选择，你能告诉我为什么这不打印任何东西。 Date::Manip 的文档关于如何实际输出东西的内容非常薄。

use Date::Manip;

my $date = new Date::Manip::Date;

my $err = $date->parse("today");
if ($err) {
     print "Problems: $err\n";
}
$date->printf("It is now %b %e, %Y.\n");

Answer 1

printf方法应该被命名为 sprintf .它返回格式化的字符串；它不打印它。尝试:

print $date->printf("It is now %b %e, %Y.\n");

Date::Manip可能是处理工作日最简单的方法，因为它具有内置的概念。您也可以使用 DateTime::Set操作(请参阅 DateTime::Event::Holiday::US 了解预先填充了美国假期的集合)。

还有 DateTime::BusinessHours ，但我从未尝试过。