UTF8で全角カタカナの入力チェック
■ UTF8で全角カタカナの入力チェック Perl スクリプトなんですけど、入力値がカタカナかどうかをチェックしたくて以下のようにやりました。 もっとちゃんとしたやり方がありそうなので誰か知っていたら教えて下さい。 入力も出力も UTF8 です。変数 $kana にはチェックしたい文字列が入っているとして…。 utf8::decode($kana); if($kana !~ /^([\x{30A1}-\x{30F6}])+$/) { print "全部カタカナで入力しろやゴルァ。"; } こんな感じ。 少しばかり試した感じでは、utf8::decode などで UTF8 フラグを付与してからじゃないと正規表現でチェック出来ないようなのですが、間違ってませんよね？というか、正規表現はこれで正しいのかも？？だし。文字コードとかの事はほんと良く知らないのでヘルプミー。 EUC-JP や SJIS
Perlメモ
複数のプロセスでロック状態が異常であると判断し，そのうちの 1つがロックを解除したことにより，別のプロセスがロックしたにもか かわらず，先ほどロック状態が異常であると判断したプロセスによってこの正常なロッ クを解除されてしまう可能性があります． この方法の問題点は，異常なロック状態を解除する操作が正常なロック状態をも 解除できてしまうことにあります．逆に言えば，異常なロック状態を解除する操作に よって正常なロック状態を解除できなければ問題ないわけです．そのためにはどうす ればよいのか？ 答えはロック状態が常に変化していけば よいということです．そして，これを実現するのに都合がよいのが rename による方法になります． 最初のスクリプトで説明しますと，ロックファイルが lockfile という 名前のときがロックが解除されている状態で，lockfile987654321 のよう に後ろに
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
平仮名+カタカナチェック
WebmasterTOOL::CGI PHP 制作 配布 フリーウェア・評価版ダウンロード：ショッピングカート マルチフォームメール F2Mail ファイル添付 ホームページ作成ソフト 携帯サイト アドセンス
casual_talks_02.txt
