Memoize

Perl_Unocode_Japanese_zenkana_to_hankana

半角カタカナを全角カタカナに変換する必要があったので調べた。

より詳しい情報はこちら。

Perl で半角カナと全角カナの変換をする - serendip.ws

いくつか方法があるが、Unicode::Japanese モジュールを使う方法を選択。

まずインストール。

 
% sudo /usr/bin/perl -MCPAN -e shell
cpan[1]> install Unicode::Japanese
 

 
#! /usr/bin/perl
use warnings;
use strict;
use Unicode::Japanese;
 
# http://www.serendip.ws/archives/2185
 
my $str_h="ｼｬﾝﾊﾟﾝ";
my $str_z=Unicode::Japanese->new($str_h)->h2z->get;
print "$str_z\n";
 

実行

 
% sample_Unicode_Japanese.pl
シャンパン