2007-04-26から1日間の記事一覧
多重配列とかハッシュとかダメダメだったので、ついカッ(ry 再起使えよ という話。 関数部分 sub escapeHTML { @_ = @_ ? @_ : $_ if defined wantarray; for (@_ ? @_ : $_) { my $val = $_; my $type = ref $val; if($type eq 'ARRAY'){ if ((scalar @_) >…
多重配列とかハッシュとかダメダメだったので、ついカッ(ry 再起使えよ という話。 関数部分 sub escapeHTML { @_ = @_ ? @_ : $_ if defined wantarray; for (@_ ? @_ : $_) { my $val = $_; my $type = ref $val; if($type eq 'ARRAY'){ if ((scalar @_) >…