#!/usr/bin/perl -w use strict; use CGI; use Calendar::Simple; # HTML::CalendarMonthSimple seems even better suited # HTML::CalendarMonthSimple is a Perl module for # generating, manipulating, and printing a HTML calendar # grid for a specified month. It is intended as a faster # and easier-to-use alternative to HTML::CalendarMonth." my $rqry = new CGI(); print CGI::header(); 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 '
'; print "$months[$mon -1] $yr\n\n"; print 'Su | Mo | Tu | We | ' .'Th | Fr | Sa |
$_ | "} @$_; print '
// or with pre-tag:\n"; print "$months[$mon -1] $yr\n"; print "Su Mo Tu We Th Fr Sa\n"; foreach (@month) { print map { $_ ? sprintf("%2d ", $_) : ' ' } @$_; print "\n"; } print '';