Архив документации OpenNet.ru / Раздел "Perl" / Индекс

Выводим даты при помощи модуля Calendar::Simple

Пример прямо из 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]#
              
              

Архив документации на OpenNet.ru