Calendar::Simple - Perl extension to create simple calendars
use Calendar::Simple; my @curr = calendar; # get current month my @this_sept = calendar(9); # get 9th month of current year my @sept_2002 = calendar(9, 2002); # get 9th month of 2002 my @monday = calendar(9, 2002, 1); # get 9th month of 2002, # weeks start on Monday
A very simple module that exports one functions called calendar. This function returns a data structure representing the dates in a month. The data structure returned is an array of array references. The first level array represents the weeks in the month. The second level array contains the actual days. By default, each week starts on a Sunday and the value in the array is the date of that day. Any days at the beginning of the first week or the end of the last week that are from the previous or next month have the value undef.
calendar
undef
If the month or year parameters are omitted then the current month or year are assumed.
A third, optional parameter, start_day, allows you to set the day each week starts with, with the same values as localtime sets for wday (namely, 0 for Sunday, 1 for Monday and so on).
A simple cal replacement would therefore look like this:
cal
#!/usr/bin/perl -w use strict; use Calendar::Simple; my @months = qw(January February March April May June July August September October November December); my $mon = shift || (localtime)[4] + 1; my $yr = shift || ((localtime)[5] + 1900); my @month = calendar($mon, $yr); print "\n$months[$mon -1] $yr\n\n"; print "Su Mo Tu We Th Fr Sa\n"; foreach (@month) { print map { $_ ? sprintf "%2d ", $_ : ' ' } @$_; print "\n"; }
Dave Cross <dave@dave.org.uk>
With thanks to Paul Mison <cpan@husk.org> for the start day patch.
perl, localtime
To install Calendar::Simple, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Calendar::Simple
CPAN shell
perl -MCPAN -e shell install Calendar::Simple
For more information on module installation, please visit the detailed CPAN module installation guide.