Date::Holidays::AT - Determine Austrian holidays
use Date::Holidays::AT qw(holidays);
my $feiertage_ref = holidays();
my @feiertage = @$feiertage_ref;
This module exports a single function named holidays() which returns a list of Austrian holidays in a given year.
The module knows about the following holidays:
neuj = New year's day
hl3k = Heilige 3 Koenige
jose = Josef
tdar = Staatsfeiertag (Tag der Arbeit)
flor = Florian
mahi = Mariae Himmelfahrt
rupe = Rupert
volk = Tag der Volksabstimmung
nati = Nationalfeiertag
alhe = Allerheiligen
mart = Martin
leop = Leopold
maem = Mariae Empfaengnis
heab = Heiliger Abend
chri = Christtag
stef = Stefanitag
silv = Silvester
karf = Karfreitag
ostm = Ostermontag
himm = Christi Himmelfahrt
pfim = Pfingstmontag
fron = Fronleichnam
Please refer to the module source for detailed information about how every holiday is calculated. Too much detail would be far beyond the scope of this document, but it's not particularly hard once you've found the date for Easter.
The list returned by holidays() consists of UNIX-Style timestamps in seconds since The Epoch. You may pass a strftime() style format string to get the dates in any format you desire:
my $feiertage_ref = holidays(FORMAT=>"%d.%m.%Y");
This might be considered "hard to use" by some people, so here are a few examples to get you started:
FORMAT=>"%a, %B %d" Tuesday, December 25
Please consult the manual page of strftime() for a complete list of available format definitions.
There is, however, one "proprietary" extension to the formats of strftime(): The format definition %# will print the internal abbreviation used for each holiday.
As the module doesn't want to deal with i18n issues, you'll have to find your own way to translate the aliases into your local language. See the example/feiertage.pl script included in the Date::Holidays::DE distribution to get the idea. This was added in version 0.6.
The module also knows about different regulations throughout Austria
When calling holidays(), the resulting list by default contains the list of Austria-wide holidays.
You can specify one ore more of the following federal states to get the list of holidays local to that state:
my $feiertage_ref = holidays(WHERE=>['W', 'S']);
returns the list of holidays local to Wien or Salzburg.
To get the list of local holidays along with the default list of common Austrian holidays, use the following:
my $feiertage_ref = holidays(WHERE=>['common', 'ST']);
returns the list of common Austrian holidays merged with the list of holidays specific to Steiermark.
You can also request a list containing all holidays this module knows about:
my $feiertage_ref = holidays(WHERE=>['all']);
will return a list of all known holidays.
There are a number of holidays that aren't really holidays, e.g. New Year's Eve and Christmas Eve. These aren't contained in the common set of holidays returnd by the holidays() function. The aforementioned silv and heab are probably the most likely ones that you'll need.
If you want one or several of them to appear in the output from holidays(), use the following:
my $feiertage_ref = holidays(ADD=>['heab', 'silv']);
By default, holidays() returns the holidays for the current year. Specify a year as follows:
my $feiertage_ref = holidays(YEAR=>2004);
By default, holidays() includes Holidays that occur on weekends in its listing.
To disable this behaviour, set the WEEKENDS option to 0:
my $feiertage_ref = holidays(WEEKENDS=>0);
Get all holidays for Ausria in 2004, count New Year's Eve and Christmas Eve as Holidays. Exclude weekends and return the date list in human readable format:
my $feiertage_ref = holidays(FORMAT => "%a, %d.%m.%Y"
WHERE => ['common'],
WEEKENDS => 0,
YEAR => 2004,
ADD => ['heab', 'silv']);
Uses Date::Calc 5.0 for all calculations. Makes use of the POSIX and Time::Local modules from the standard Perl distribution.
If you run into a miscalculation, need some sort of feature or an additional holiday, or if you know of any new changes to the funky holiday situation, please drop the author a note.
Date::Calc works with year, month and day numbers exclusively. Even though this module uses Date::Calc for all calculations, it represents the calculated holidays as UNIX timestamps (seconds since The Epoch) to allow for more flexible formatting. This limits the range of years to work on to the years from 1972 to 2037.
Date::Holidays::AT doesn't know anything about past holiday regulations.
Date::Holidays::AT is not configurable. Holiday changes don't come over night and a new module release can be rolled out within a single day.
Date::Holidays::AT probably won't work in Microsoft's "Windows" operating environment.
Thanks to Martin Schmitt <mas at scsy dot de>. Date::Holidays::AT is based on Date::Holidays::DE.
Matthias Dietrich <firstname.lastname@example.org>
Copyright 2007 plusW, Rolf Schaufelberger. All Rights Reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
To install Date::Holidays::AT, copy and paste the appropriate command in to your terminal.
perl -MCPAN -e shell
For more information on module installation, please visit the detailed CPAN module installation guide.