Perl ひらがなをカタカナに変換する

Posted by dab | 2007年9月4日火曜日 17:25:52 < コンピュータ >

Unicode::Japaneseにhira2kanaというメソッドがあるようなんだけど、
標準モジュールじゃないし、うちでテストしてみると、make testで失敗する。
やはり、hira2kanaも呼び出せない。

JavaScriptでの変換方法を参考に
Encodeモジュールのfrom_toでeuc-jpに変換した後、

($kana)=($hira=~s/xA4([xA2-xF3])/xA5$a/g);

euc-jpに変換しないと行けないけど、
MySQLがeuc-jpで動いてるから、結局euc-jpに変換しないと行けないし、
味気ないけどちゃんと動いてるのでよしとしておこう。

http://chaichan.hp.infoseek.co.jp/qa4500/qa4623.htm
function hira2kana(s){return String.fromCharCode( s.charCodeAt(0)+0x60)}
alert( ‘あいうえお’.replace( /[u3041-u3093]/g, hira2kana) );