#1163(水原麗名とも呼ばれる人氏)の書き込みを引用します:
＞#1162(海豚氏)の書き込みを引用します:
＞
＞＞#入力チェック
＞＞
＞＞$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);
もう一ヶ所ありました。(汗)
↑ここが
&error('入力エラー','名前の読みはひらがなだけです。') if (&yomi($yomigana) == 0);
となります。

＞＞if ($FORM{'q02'} eq "") { &error('入力エラー','ふりがなが入力されてません。'); }
＞＞