凄い雪ですね！
#1158(水原麗名とも呼ばれる人氏)の書き込みを引用します:
＞昔私がやったときは「名前の読み方を入力」でした。
＞
＞@name = unpack ('C*',$name);
＞while ($line = $name[$y++]){
＞  if ($y % 2){
＞    $line == 164 or return 0;
＞  }else{
＞    ($line <= 243 and $line >= 161) or return 0;
＞  }
＞}
＞return 1;
＞文字コードをEUCに変換してからここに渡すとひらがな以外があると0を返します。

ありがとうございます。
私も、「名前の読み方を入力」を使用しようとしています。
でも私には難しすぎるのですが・・・。
上記のようにそのまま入れたらエラーになってしまいました何故でしょう？
と言っても分からないですよね・・・。そのままじゃダメなのでしょうか？
原因が分かるようでしたら御願い致します。


＞＞また、「英字」以外はエラーメッセージを表示するもご存知でしたら御願い致します。
＞こちらはもっと簡単でしょう。
＞
＞$line =~ /^[A-Za-z]$/ or &error("英字以外が含まれています");
＞
＞これだけでOKだと思います。文字コードはShift-JISかEUCで。</=>

こちらの方は出来ましたありがとうございます。