Пример прямо из man Calendar::Simple
#!/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";
}
на выводе имеем:
** Joe's Own Editor v2.8 ** Copyright (C) 1995 Joseph H. Allen **
File /root/raznoe/Calendar-Simple-1.06/aa.pl not changed so no update needed.
[root@www /root]# /root/raznoe/Calendar-Simple-1.06/aa.pl
August 2002
Su Mo Tu We Th Fr Sa
1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30 31
[root@www /root]#