Perl

ASCII判定

文字にASCII,半角,全角が含まれているかチェックする

コード

※ 文字コードがEUCの場合

$txt = "./a.txt";
open(FH,$txt);

while(){
  if ($_ =~ /[\xA1-\xFE][\xA1-\xFE]/){  # 全角文字をチェック
     print "全角     : $_";
  }

  if ($_ =~ /[\x8E]/){                  # 半角カナ文字をチェック
     print "半角     : $_";
  }

  if ($_ =~ /[\x8E\xA1-\xFE]/) {        # ASCII 以外をチェック
     print "ASCII以外: $_";
  }
}
close(FH);

実行結果
読み込むファイル
# cat a.txt
aaaaaaaaa
日本語
bbbbbbbbbbb
漢字
ccccccccccc
カタカナ
ddddddddddddd
ひらがな
eeeeeee
カタカナ
fffffffff
#

実行する
# ./a.pl
全角     : 日本語
ASCII以外: 日本語
全角     : 漢字
ASCII以外: 漢字
半角     : カタカナ
ASCII以外: カタカナ
全角     : ひらがな
ASCII以外: ひらがな
全角     : カタカナ
ASCII以外: カタカナ
#


戻る

      Document-Folder          一覧
HP-UX
HULFT
JAVA
JP1
JavaScript
Linux
MAC
PHP
Perl
Python
Ruby
SOA
Solaris
Unix全般
Windows
XML
エクセル
スタイルシート
セキュリティー
データベース
ネットワーク
パソコン
ブラウザ
プログラム構文
仮想化
          RSS-Folder
ニュース
   アットマーク・アイティ(@IT)
   シンクイット(ThinkIT)
   インターネットコム
   インターネットウォッチ
   日経IT-Pro
   日経パソコン
   CNET Japan
   ZD-NetJapan
   MYCOM
   RBB-Today
ベンダー
   日本IBM
   日本HP
   サンマイクロシステムズ
   NEC
   富士通
   日立
ソフトウェア
   マイクロソフト
   トレンドマイクロ
   オラクル
   サイボウズ
   Mozilla
   野村総合研究所
   (その他ソフトウェア企業)
更新履歴 一覧
 07/08 PERF
プログラム構文
 07/07 PERF
プログラム構文
 06/25 オブジェクトプログラミング2
Perl>サンプル
 07/12 クローン作成
仮想化>vCenter
 07/12 vyatta設定
ネットワーク>vyatta
 07/12 vyattaインストール
ネットワーク>vyatta
 07/12 リポジトリサーバ
Linux>サーバ構築
 07/05 VMwareのインストール
仮想化>VMware
 07/05 PXEブート
仮想化>KVM
 07/01 DHCPでのPXEブート
仮想化>KVM
 06/27 qcow2仮想DISK作成
仮想化>KVM
 06/13 NWの設定
仮想化>VMwareEsxi
 06/13 IPアドレスの変更
仮想化>VMwareEsxi
 06/12 自動ssh
Unix全般>シェル>Bash
 06/12 diffプログラミング
Python
Google