インフォメーションBBS
[使い方]
[タイトルのみ]
[関連発言]
[最新20発言]
[過去ログ一覧]
発言#1161を修正または削除できます:
お名前:
←パスワード(修正用)
アドレス:
タイトル:
本文:
#1159(海豚氏)の書き込みを引用します: >凄い雪ですね! >#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を返します。 > >ありがとうございます。 >私も、「名前の読み方を入力」を使用しようとしています。 >でも私には難しすぎるのですが・・・。 >上記のようにそのまま入れたらエラーになってしまいました何故でしょう? >と言っても分からないですよね・・・。そのままじゃダメなのでしょうか? >原因が分かるようでしたら御願い致します。 もしかしたらサブルーチンじゃないのが原因かもしれません。 ってことで当時書いたそのままのサブルーチンです。 sub yomi{ local($yomi) = @_; jcode::convert(*yomi,"euc"); @name = unpack ('C*',$yomi); while ($line = $name[$y++]){ if ($y % 2){ $line == 164 or return 0; }else{ ($line <= 243 and $line >= 161) or return 0; } } return 1; } このサブルーチンが入っている状態で 入力を受けとった後で $error = "名前の読みはひらがなだけです。" if (&yomi($yomigana) == 0); とするとOKなはずです。 えんいー。</=>
[トップページに戻る]
管理人 :
キャメル