新しいblogに移行しました

新ブログ "All Yout Bugs Are Belong To Ass" に移行しました!

2010-01-06

[Perl]Convert::Cyrillicでアルファベットへの翻字ができるのかな?

ロシア語の勉強を始めたytnobodyです。まだネイティブの2才児にも劣っているわけですが。

で、ちょっと気になったのが翻字。
キリル文字からアルファベットに翻字してくれるモジュールとかないのかなーって、 CPANを漁ってみたわけです。
そしたらConvert::Cyrillicというモジュールを見つけたので、試してみました。


yt@nephos:~/script$ cat cyrillic.pl
#!/usr/bin/perl
use Convert::Cyrillic;
use Data::Dumper;
print Dumper( Convert::Cyrillic::cstocs( 'UTF-8', 'VOL', 'Я изучаю русский.' ) );

yt@nephos:~/script$ perl cyrillic.pl
$VAR1 = 'Я �yoзучаю русск�yoй.';


(';ω;`)ブワッ

0 件のコメント: