#!/usr/bin/perl
#
# =====================================================================
# kpuruu.pl version 1.0.0
# 閏年の判定
# 使用方法：perl kpuruu.pl 西暦
# Copyright (c) 1999 KIYO Project (Kiyoteru Onishi)
# URL    http://www4.justnet.ne.jp/~kiyo-chan/
# E-mail kiyo-chan@ma4.justnet.ne.jp
# =====================================================================

$year = $ARGV[0];
# 渡された引数の数をチェックし、不正な場合は処理を終了する
if (@ARGV - 1) {
	die 'パラメータが不正です．'."\n".
		'使用例：'."perl kpuruu.pl".' 西暦'."\n";
}
# 引数に数字以外の文字が存在した場合、処理を終了する
if ($year =~ /\D/) {
	die '引数の指定が正しくありません．'."\n".
		'使用例：'."perl kpuruu.pl".' 西暦'."\n";
}
if (($year % 4) != 0 || ($year % 100) == 0 && ($year % 400) != 0) {
    print '西暦 '."$year".' 年は閏年ではありません．'."\n";
} else {
    print '西暦 '."$year".' 年は閏年です．'."\n";
}
#
# kpuruu.pl