| Subject: | Few holidays in Date::Holidays::USFederal |
| Date: | Sun, 3 May 2009 15:03:54 -0700 (PDT) |
| To: | bug-Date-Holidays-USFederal [...] rt.cpan.org |
| From: | mbaguide2000-web [...] yahoo.com |
Mac OS X Version 10.5.6
% perl -version
This is perl, v5.8.8 built for darwin-thread-multi-2level
(with 2 registered patches, see perl -V for more detail)
The module seems to know about only 4 holidays:
% holidays.pl
2009 10 12: Columbus Day
2009 11 11: Veterans Day
2009 11 26: Thanksgiving Day
2009 12 25: Christmas Day
% holidays.pl
2008 10 13: Columbus Day
2008 11 11: Veterans Day
2008 11 27: Thanksgiving Day
2008 12 25: Christmas Day
#!/usr/bin/perl
use Date::Manip;
use Date::Holidays::USFederal;
# $day = "2009010100:00:00" ;
$day = "2008010100:00:00" ;
# while (&UnixDate($day, "%Y") eq "2009")
while (&UnixDate($day, "%Y") eq "2008")
{
$holiday = is_usfed_holiday(&UnixDate($day, "%Y"), &UnixDate($day, "%m"), &UnixDate($day, "%d")) ;
if (length($holiday)) { print &UnixDate($day, "%Y %m %d: $holiday\n") ; }
elsif (is_usfed_holiday(&UnixDate($day, "%Y"), &UnixDate($day, "%m"), &UnixDate($day, "%d")))
{
print "$day is an un-named holiday\n" ;
}
# else
# {
# print &UnixDate($day, "%Y %m %d\n") ;
# }
$day = &DateCalc($day,"+ 1 day",\$err) ;
}