UTF-8 で半角カナを判定
2006-11-09-3
[Programming]
Perl で UTF-8 で半角カナを判定するには、顔文字みたいな正規表現を使うと良いみたい。
なお、下記では全角になっていますが、「。」「゜」は半角です。
以下、確認スクリプト utf8hankana-test.pl。
追記061110:
展開の仕方を書いてなかったので追記しておきます。ヽ(。▽°)ノ アヒャヒャ
(1) ファイルに保存。例えば、「cat > a.uu」を実行し、beginからendま
でをコピペ。
(2) uudecode で解凍(utf8hankana-test.pl.gz というファイルができる)。
実行例: uudecode a.uu
(3) gunzip で解凍(目的のファイル utf8hankana-test.pl ができる)。
実行例: gunzip utf8hankana-test.pl.gz
関連:
- [を] @iiがカタツムリに見える件[2005-08-16-4]
- 404 Blog Not Found:uuencode
http://blog.livedoor.jp/dankogai/archives/50683970.html
なお、下記では全角になっていますが、「。」「゜」は半角です。
print if /[。-゜]/;
以下、確認スクリプト utf8hankana-test.pl。
begin 755 utf8hankana-test.pl.gz M'XL("+7C4D4``W5T9CAH86YK86YA+71E<W0N<&P`1<_)2L-@$,#Q^SS%9[Q8 ML>0J1H1"]>K!>'()M48-U"A)BP<1M.[5NN];L>[[OFM]F"IXZROX5P\._&!F MF!F8XB(]X7MZB^/JW;87DV+UF4Y]'<SEDR?YP51)O5D3+`](PK>5'_><:-SX MS7LBGNNX[?Y?5>U&NUKMOSP1;RLWA'.=M%2=&:ZM-\N45O'3UPR1G@XG9JN2 MRG#(#%4%5*\HHMMSW+C22I6FG#:E-S<4WK:#A5RFJ='7C?\)0_I$+.MGU;(D M(B$)2GX@*?ED5CZ>-X0M9+&#/>QB'P<XQ!&.<8)3G.$<%[C$%:YQ@UO<X1X/ M>,03GO&"5[PAAW<IY/HQ@"0&,81AC&`48QA'"A.81!I3F,8,9C&'>2Q@$4M8 6Q@I6L89U\&]N$UO(R#>Y:S'ZR`$````` ` end
追記061110:
展開の仕方を書いてなかったので追記しておきます。ヽ(。▽°)ノ アヒャヒャ
(1) ファイルに保存。例えば、「cat > a.uu」を実行し、beginからendま
でをコピペ。
(2) uudecode で解凍(utf8hankana-test.pl.gz というファイルができる)。
実行例: uudecode a.uu
(3) gunzip で解凍(目的のファイル utf8hankana-test.pl ができる)。
実行例: gunzip utf8hankana-test.pl.gz
関連:
- [を] @iiがカタツムリに見える件[2005-08-16-4]
- 404 Blog Not Found:uuencode
http://blog.livedoor.jp/dankogai/archives/50683970.html
この記事に言及しているこのブログ内の記事