檢查日期是否有效

Question

在我的程序中，我有用戶輸入格式爲「月日」（例如5月25日）的日期，如果日期無效，我希望能夠打印錯誤消息（例如2月30日）。

因此，這裏的一些代碼

$start_date = ARGV[0]; 
my $year = DateTime->now->year;           # adds a year to the date 
my $date_parser = DateTime::Format::Strptime->new(pattern => '%Y %B %d', # YYYY Month DD 
); 
my $start_epoch = $date_parser->parse_datetime("$year $start_date")->epoch(); 

權在此之後，我需要某種如果正確說法？

Answer 1

如果日期無效，則解析器將返回undef。你會看到這個很快，如果你這樣做：

my $start_date = "Feb 30"; 
my $year = DateTime->now->year;           # adds a year to the date 
my $date_parser = DateTime::Format::Strptime->new(pattern => '%Y %B %d', # YYYY Month DD 
); 
my $start_epoch = $date_parser->parse_datetime("$year $start_date")->epoch(); 

解決辦法：

my $parsed = $date_parser->parse_datetime("$year $start_date"); 
if (not defined $parsed) { print "Error - invalid date\n"; } 

Answer 2

從perlmonks：

use Time::Local; 
my $date = ' 19990230'; # 30th Feb 1999 
$date =~ s/\s+$//; 
$date =~ s/^\s*//; 
my ($year, $month, $day) = unpack "A4 A2 A2", $date; 
eval{ 
    timelocal(0,0,0,$day, $month-1, $year); # dies in case of bad date 
+ 
    1; 
} or print "Bad date: $@"; 

這應該做你正義