ひらがなをカタカナに変換

---

　Lingua::JA::Regular::Unicodeモジュールを使うと簡単です。

use strict;
use warnings;
use Encode;

use Lingua::JA::Regular::Unicode qw/hiragana2katakana/;

my $code = 'cp932';
my $h_kana = '明らか';
my $k_kana = hiragana2katakana(decode($code, $h_kana));
print encode($code, $k_kana), "\n"; # 明ラカ

---

関連項目

・漢数字変換