2001年11月29日 (木)
簡易日付チェック
うるう年とかいろいろ計算して日付をチェックさせるのが面倒くさかったからこんなの作ってみました。
sub date_check () {
my ($y, $m, $d) = @_;
use Time::Local;
eval {
$m -= 1;
$y -= 1900;
my ($d2, $m2, $y2) = (localtime(timelocal(0, 0, 0, $d, $m, $y)))[3..5];
if (($d ne $d2) or ($m ne $m2) or ($y ne $y2)) {
die "date is wrong";
}
};
return ($@)? 0 : 1;
}
1970年より前はチェックできないという問題有り。
posted by takefumi
|
この日記へリンク
|
コメント(0)
|
トラックバック(0)