[を] Perlでカタカナひらがな変換

Perlでカタカナひらがな変換 2006-08-07-5 [Programming] Perlでカタカナひらがな変換をやろうと思ったら、 Unicode::Japanese を使うのが手軽なのかな。 - 山科 氷魚 / Unicode-Japanese - search.cpan.org http://search.cpan.org/dist/Unicode-Japanese/ とりあえず使うことにしてみた。 以下、適当なサンプルプログラム。 #!/usr/bin/perl # 入力はEUC-JPのTSVで住所とその読み仮名（カタカナ）。 # 出力はUTF-8のTSVで住所とその読み仮名（カタカナ＋ひらがな）。 use strict; use warnings; use Unicode::Japanese; while(<>) { chomp; my @col = split

[nilab]

[を] Perlでカタカナひらがな変換

[kits]

use Jcode; use utf8; jcode($str)->tr('ぁ-ゔ', 'ァ-ヴ'); を考えました。/ 'ゔ' == "\x{3094}"