#1156(海豚氏)の書き込みを引用します:
＞　こんにちは。
＞「うはく」さん「わかやま神」さん色々とありがとうございます。
＞
＞入力画面はHTMLで、その入力された文字が「平仮名」以外ならばエラーメッセージを表示すると言う事は可能でしょうか？
昔私がやったときは「名前の読み方を入力」でした。

@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で。</=>