日付の比較には「Date::Cacl」モジュールの「Date_to_Days()」を利用して行うことが出来ます。 通常の「eq」、「==」などの比較演算子の場合は比較できませんのでご注意ください。
-使用例- #!/usr/bin/perl
use Date::Calc qw(:all);
#今日の日付が'2010-07-15'の場合 #今日の日付を取得 my ($cyear, $cmonth, $cday) = Today();
# 前日の日付 my $year='2010' ; my $month='07' ; my $day='14' ;
#今日の日付と特定の日付を比較 if(Date_to_Days($year,$month,$day) < Date_to_Days($cyear,$cmon,$cmday)){ print "今日の日付より前の日付です。" ; }else{ print "今日の日付より後の日付です。" ; }
猫の手 高室(たかむろ)
|