#!/usr/bin/perl -w
# 使用範例: 例如要查詢 2000 年 12 月 25 日是星期幾 (傳回值從 0 到 6) 可下:
#	./wday 25 Dec 2000
# 可以用 cal 12 2000 檢查結果.
use strict;

print weekday(@ARGV), "\n";



use Time::Local;
# 這只是一個範例程式, 且僅限用於 1900 年至 2038 年的日期!
# 如果需要比較完整的日期函數, 請用 Date::Calc 或 Date::Manip
sub weekday {
    my ($day, $month, $year) = @_;
    my (%m2n) = (
	"jan"=>1, "feb"=>2, "mar"=>3,
	"apr"=>4, "may"=>5, "jun"=>6,
	"jul"=>7, "aug"=>8, "sep"=>9,
	"oct"=>10,"nov"=>11,"dec"=>12
    );
    my @tf = localtime(timelocal(0,0,0,$day, $m2n{"\l$month"}-1, $year-1900));
    return $tf[6];
}