Calendar::Simple - ��激�潟����˨�ŝ�˨�㋘�潟����若��篏������冴��Perl��≦宍
use Calendar::Simple;
my @curr = calendar; # 篁����������緇�
my @this_sept = calendar(9); # 篁�綛眼��9���������緇�
my @sept_2002 = calendar(9, 2002); # 2002綛�9���������緇�
my @monday = calendar(9, 2002, 1); # 2002綛�9���������緇�,
# ��宴�勰��紮������������ャ�˨����������勉����⓾����激�潟����˨�ŝ�≪�吾�ャ�若�˨��calendar�����若�銀����ゃ�勰�∽�違�������壔�鴻����若�� �����障����������勰�∽�違�壔�蚊�������勖�ヤ�����茵���������若�炊��������菴������障����������勉����若�炊����� ��奝�������ŝ����＜�㋘�潟�鴻�勰��������菴������障�������������勛⓬鐚���㋘����˨�壩����勌賢��勰�宴��茵������障����� ��������勛⓬鐚���㋘����˨�壠�������勖�ャ����ャ�ｃ�⓾����障����������ユ�������������������勰�宴�勐������� ��ユ����ャ�с�������������☁�������勌賢��勐�ゃ�壔����勖�ャ�������勖�ヤ����с����������������ユ����������ŝ�� ��������勰�宴�勐�����������緇���勰�宴�勛����������壔����ゃ�с��undef��勐�ゃ�������＜�障�����
���������������綛眼�勐����違�������ャ�������������壔��篁�綛眼�勌����������帥�ŝ�������障�����
3��ɾ�勉�勌算��鏁���違��start_day��壔��localtime ��∽�違�������������� wday ������罕���勐����� ��ゃ��篏帥�ｃ�⓾�������������勰�宴�勰��紮���ャ�勖��絎�����櫝�純�˨����障�����(�����ŝ����＜����ユ���� 篁ｃ��������0�����������勌撮���������1���篁ヤ�����罕�)
膂≦�����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";
}calendar
Dave Cross <dave@dave.org.uk>
With thanks to Paul Mison <cpan@husk.org> for the start day patch.