日付の妥当性チェック
use Date::Manip qw(ParseDate);
my $datestring = '20050229'; # 日付として解析できる文字列であればなんでもよい
if(!ParseDate($datestring){
#不正な日付の時の処理
}
use Date::Manip qw(ParseDate);
my $datestring = '20050229'; # 日付として解析できる文字列であればなんでもよい
if(!ParseDate($datestring){
#不正な日付の時の処理
}