なぜか祝日判定がうまくいきません

質問

Calendar::Japanese::Holiday を利用して以下の様な祝日判定のルーチンをテストしているのですが、なぜか#(1)あるいは#(2)のようにサブルーチン内部で値を明示してやらないと正常動作（祝日判定）しません。
そこでCalendar::Japanese::HolidayのisHolidayルーチンの方に値が正常に渡っていないのかと考え、#(3)のようなチェック用のソースを組み入れてみたりもしたのですが、$year, $mon, $dayそれぞれ正常に値は渡っていました。
どのようにすれば正常動作するようになるのでしょうか？

my %spdate = (#すでに$y、$m、$dにはそれぞれ2012、05、05と値が入っています。
'year' =>$y,
'month' =>$m,
'day' =>$d,
);
$spdate = \%spdate;

&check_date($spdate);

sub &check_date{
my($spdate) = @_;

#($spdate->{year},$spdate->{month},$spdate->{day})=(2012,05,05); #(1)
#my $jpholiday = isHoliday(2012,05,05); #(2)

my $jpholiday = isHoliday($spdate->{year},$spdate->{month},$spdate->{day});

if($jpholiday){ push(@error, 'It is a holidays today'); }

}#end

#Calendar::Japanese::Holiday
#http://search.cpan.org/~kztomita/Calendar-Japanese-Holiday-0.03/
sub isHoliday {
my ($year, $mon, $day, $furikae) = @_;

#test #(3)
print "Content-type: text/html; charset=utf8\n\n";
print "$year";
print "$mon";
print "$day";

my $holidays;

if ($year == $Cache_holidays_Year &&
$mon == $Cache_holidays_Month) {
$holidays = $Cache_holidays; # From Cache
} else {
$holidays = getHolidays($year, $mon, 1);
return if not defined $holidays;
# Cache
$Cache_holidays = $holidays;
$Cache_holidays_Year = $year;
$Cache_holidays_Month = $mon;
}

return if !exists $holidays->{$day};

return if (!$furikae && $holidays->{$day} eq $FurikaeStr);

return $holidays->{$day};
}#end

回答No.3

Tacosan · ベストアンサー

my $jpholiday = isHoliday($spdate->{year}+0,$spdate->{month}+0,$spdate->{day}+0);
か?

お礼

これでOKでした。2012, 05, 05のまま渡しても正常に動作する様になりました。
ありがとうございました。

回答No.4

kuroizell

なるほど、数値じゃなくて文字列が渡っているからアウトなんですね。

たぶん動く↓
# 全角スペース注意
my $spdate = {
　　year　=> $q->param('year')　+ 0,
　　month => $q->param('month') + 0,
　　day　 => $q->param('day')　 + 0
};

お礼

ありがとうございます。この段階での処理でも2012, 05, 05のまま渡しても正常に動作しました。

回答No.2

kuroizell

もしかして : chomp

お礼

chompは改行コードの削除ということでこの場合はあてはまりませんでしたが、私も最初にこれを疑いました。

回答No.1

Tacosan

sub &check_date
はおかしくないか?

さておき, 最初の
「すでに$y、$m、$dにはそれぞれ2012、05、05と値が入っています。」
のところ, どうやって値を入れたんでしょうか?

また, 入っている値が
2012, 05, 05
ではなく
2012, 5, 5
だったらどうなりますか?

補足

>sub &check_date
これはこの質問記載中ののみの誤記載で実際には「sub check_date」となっています。紛らわしくて申し訳ないです。

$y、$m、$dにはプルダウンHTMLからの入力です。他の箇所との絡みで1～9の数字は05のようにあたまに０をつけた２けた数値でやり取りしています。

$y、$m、$dの数値を2012, 5, 5としたら正常に動作しました。