インフォメーションBBS
[使い方]
[タイトルのみ]
[関連発言]
[最新20発言]
[過去ログ一覧]
発言#1163を修正または削除できます:
お名前:
←パスワード(修正用)
アドレス:
タイトル:
本文:
#1162(海豚氏)の書き込みを引用します: >if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'}); } >else { $buffer = $ENV{'QUERY_STRING'}; } > >if ($buffer eq "") { &error('エラー','使い方が間違っています.'); } > >@pairs = split(/&/,$buffer); >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,'euc'); ># &jcode'convert(*value,'sjis'); > > $value =~ s/<BR>/g; > $value =~ s/\r//g; > $value =~ s/\t//g; > $value =~ s/\,//g; > > $FORM{$name} = $value; >} > >#入力チェック > >$FORM{'q01'} =~ s/ //g; >$FORM{'q01'} =~ s/ //g; >if ($FORM{'q01'} eq "") { &error('入力エラー','氏名が入力されてません。'); } > >$FORM{'q02'} =~ s/ //g; >$FORM{'q02'} =~ s/ //g; >$yomi = $FORM{'q02'}; ↑ここで$yomiganaに代入してみてください。 $yomigana = $FORM{'q02'}; みたいに。 >$error = "名前の読みはひらがなだけです。" if (&yomi($yomigana) == 0); >if ($FORM{'q02'} eq "") { &error('入力エラー','ふりがなが入力されてません。'); } >
[トップページに戻る]
管理人 :
キャメル