長文失礼します #4は出勤前にあわてて書いたので 間違いがあります 仕事を終えて帰宅しましたので、じっくり調べてみました ようやく答えらしい事が書けます。 結論から先に、、、 入力されたデータ全てから , をチェックするのなら 良くあるFORMデコード部分で foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; &jcode'convert(*value, 'sjis');# sjisまたはEUCのどちらか if(index($value, ',')){エラー処理をここに記述;}#この行を追加する $FORM{$name} = $value; } ##その理由は
