#!/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]#