Date::Holidays::PT Determine Portuguese public holidays
Download

Date::Holidays::PT Ranking & Summary

Date::Holidays::PT Tags

Perl module perl public holidays holidays Portuguese Portuguese holidays

Date::Holidays::PT Description

Determine Portuguese public holidays Date::Holidays::PT - Determine Portuguese public holidaysSYNOPSIS use Date::Holidays::PT; my ($year, $month, $day) = (localtime); $year += 1900; $month += 1; print "Woohoo" if is_pt_holiday( $year, $month, $day ); my $h = pt_holidays($year); printf "Jan. 1st is named '%s' ", $h->{'0101'};FUNCTIONSnewCreates a new Date::Holidays::PT object. my $mh = Date::Holidays::PT->new();is_holidayShould at least take three arguments:year (four digits) month (between 1-12) day (between 1-31)The return value from is_holiday is either a 1 or a 0 (1 if the specified date is a holiday, 0 otherwise). if ( $mh->is_holiday( $year, $month, $day ) ) { # it's a holiday }is_pt_holidaySimilar to is_holiday, but instead of returning 1 if the date is a holiday returns a string comprising the name of the holidays. In the event of two or more holidays on the same day (hey, it happens), the string will comprise the name of all those holidays separated by a semicolon. my $todays_holiday = $mh->is_pt_holiday( $year, $month, $day ); if ( $todays_holiday ) { print "Today is $todays_holiday. Don't bother getting up! "; }holidaysShould take at least one argument:year (four digits)Returns a reference to a hash, where the keys are date represented as four digits, the two first representing month (01-12) and the last two representing day (01-31).The value for the key in question is the local name for the holiday indicated by the day. In the event of two or more holidays on the same day (yes, it happens!), the values will comprise the name of all those holidays separated by a semicolon. my $years_holidays = holidays( $year ); for (keys %$years_holidays) { my ($day, $month) = /(..)(..)/; print "$day/$month - $years_holidays->$_ "; } Requirements: · Perl

Date::Holidays::PT Related Software