<?xml version='1.0' encoding='utf-8'?>
<pod xmlns="http://axkit.org/ns/2000/pod2xml">
<head>
	<title>名前</title>
</head>
<sect1>
<title>名前</title>
<para>
Calendar::Simple - シンプルなカレンダーを作る為のPerl拡張
</para>
</sect1>
<sect1>
<title>概要</title>
<verbatim><![CDATA[
use Calendar::Simple;
]]></verbatim>
<verbatim><![CDATA[
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月を取得,
                                      # 週の開始を月曜日にする
]]></verbatim>
</sect1>
<sect1>
<title>説明</title>
<para>
このとてもシンプルなモジュールは<code>calendar</code>と呼ぶ一つの関数をエクスポート
します。この関数はひと月の日付を表すデータ構造を返します。そのデータ構造
は配列リファレンスの配列を返します。配列の第１レベルは月の中の週を表します。
配列の第２レベルは実際の日が入っています。省略時、それぞれの週の初めは
日曜日です。そして配列の中の値はその日からの日付です。前月と来月からなる
最初の週の始めと最後の週の終わりはいつでも<code>undef</code>の値を持ちます。
</para>
<para>
もし、月と年の引数を省略したときは、今年の今月とみなされます。
</para>
<para>
3番目の任意引数のstart_dayは、localtime 関数が用意する wday と同様の同じ
値を使ってそれぞれの週の開始日の指定を可能にします。(すなわち、日曜の
代わりに0、月曜の代わりに1、以下同様)
</para>
<para>
簡単な<code>cal</code>の代わりは従ってこのようになります。
</para>
<verbatim><![CDATA[
#!/usr/bin/perl -w
]]></verbatim>
<verbatim><![CDATA[
use strict;
use Calendar::Simple;
]]></verbatim>
<verbatim><![CDATA[
my @months = qw(January February March April May June July August
                September October November December);
]]></verbatim>
<verbatim><![CDATA[
my $mon = shift || (localtime)[4] + 1;
my $yr = shift || ((localtime)[5] + 1900);
]]></verbatim>
<verbatim><![CDATA[
my @month = calendar($mon, $yr);
]]></verbatim>
<verbatim><![CDATA[
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";
}
]]></verbatim>
<sect2>
<title>エクスポート</title>
<para>
<code>calendar</code>
</para>
</sect2>
</sect1>
<sect1>
<title>著者</title>
<para>
Dave Cross &lt;dave@dave.org.uk&gt;
</para>
<para>
With thanks to Paul Mison &lt;cpan@husk.org&gt; for the start day patch.
</para>
</sect1>
<sect1>
<title>関連項目</title>
<para>
<link xref='perl'>perl</link>, <link xref='localtime'>localtime</link>
</para>
</sect1>
</pod>
