« JavaでのHTTPクライアント | メイン | Perl のデバッグ »

Perl 全角ひらがなから全角カタカナへの変換

sub hiragana2katakana {
local($_) = @_;
s/\xa5\xa4/`/g;
s/\xa4([\xa1-\xfe])/\xa5$1/g;
s/`/\xa5\xa4/g;
$_;
}


$katakana = hiragana2katakana($hiragana);

投稿者: 管理人 日時: 2007年04月17日 16:15 |

トラックバック

このエントリーのトラックバックURL:
http://drunk.chips.jp/blog/mt-tb.cgi/230

コメントを投稿

(いままで、ここでコメントしたことがないときは、コメントを表示する前にこのブログのオーナーの承認が必要になることがあります。承認されるまではコメントは表示されません。そのときはしばらく待ってください。)