古い記事
ランダムジャンプ
新しい記事
Perl で UTF-8 で半角カナを判定するには、顔文字みたいな正規表現を使うと良いみたい。
なお、下記では全角になっていますが、「。」「゜」は半角です。
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
この記事に言及しているこのブログ内の記事