perl - ubuntu 13.04中文本文件中的unicode到itrans

Question

我想要 0 替换 '०' Unicode 字符。我正在使用 Perl 脚本并尝试下面给出的代码。

my %table_digits =  
(  
 '०' => '0'  
 '१' => '1',  .....)  

它适用于其他 Unicode 字符。这些正在被其他数字取代。但是它不能用0替换'०'。怎么办？

Answer 1

请参阅Unicode::UCD 中的 Unicode 数值：

use 5.010;
use utf8;
use open ':std', ':utf8';
use Unicode::UCD qw(num);
for my $digit (qw( ० १ २ ३ ४ ५ ६ ७ ८ ९ )) {
    say "$digit==".num($digit);
}