インフォメーションBBS
[使い方]
[タイトルのみ]
[関連発言]
[最新20発言]
[過去ログ一覧]
発言#1163へのレスポンスを書き込んでください:
お名前:
←パスワード(修正用)
アドレス:
タイトル:
本文:
#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('入力エラー','ふりがなが入力されてません。'); } >>
[トップページに戻る]
管理人 :
キャメル