長文失礼します #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; } ##その理由は
![正規表現でカンマを対象にする方法](https://cdn-ak-scissors.b.st-hatena.com/image/square/9cf0509ee768170b373aca3655768f065e317ca6/height=288;version=1;width=512/https%3A%2F%2Foshiete.xgoo.jp%2Fimages%2Fsp%2Fqa_recommend%2F2101_1.jpg)