kopug memo

名古屋で働くとあるWebエンジニアの覚書。

2007-04-22から1日間の記事一覧

18歳以上の生年月日チェック

splitのほうが速度的によさそうなので変更。(これくらいじゃ大差ないけど) sub static_birthday { my $date = shift; my $args = shift; # この年齢以上じゃないと登録できない。 my $over = $args->{over} || 18; return 0 unless &static_date( $date ); …