ここにきて本気をだしている tokuhirom です。こんにちは。
Perl でコードをかいていると、全角カタカナを半角カタカナに変換したいとか、そういう要望ってよくあるとおもうんですよね。そんなときは Lingua::JA::Regular::Unicode をつかうといいですね。
use Lingua::JA::Regular::Unicode qw/alnum_z2h hiragana2katakana space_z2h/;
alnum_z2h("A1"); # => "A1"
hiragana2katakana("ほげ"); # => "ホゲ"
space_z2h("\x{0300}"); # => 半角スペース
ちょうべんり。
たぶん、だいたいのケースでいま実装されてる関数でたりてるとおもうんですが、なんかこういうのほしい!ってのあれば要望をおまちしております。
Enjoy!
Hey! The above document had some coding errors, which are explained below:
Non-ASCII character seen before =encoding in 'ここにきて本気をだしている'. Assuming CP1252