全角カナと半角カナの変換

すぐ忘れるのでメモ。perl のワンライナーで全角カナと半角カナを変換します。非標準のモジュール Lingua::JA::Regular::Unicode が必要です。

半角カナ →　全角カナ

perl -CIO -MLingua::JA::Regular::Unicode -ple '$_ = katakana_h2z($_);'

全角カナ →　半角カナ

perl -CIO -MLingua::JA::Regular::Unicode -ple '$_ = katakana_z2h($_);'

その他

全角英数と半角英数、全角スペースと半角スペースなども、同様にドキュメントを読んで作るべし。

Perl で UTF-8 が絡むと、ややこしくて気軽には書けない。久しぶりだと簡単に思い出せないレベルまで複雑化しているような気がする…。

2013-03-28追記

久しぶりに使ってみたら、どこかの仕様が変わったらしく動かなかったため修正（$_ = を追加）。