Perl Ubuntu13.04中文本文件中的unicode到itrans

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

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

它可以与其他Unicode字符配合使用。这些数字正在被其他数字所取代。但它无法取代०' 与0。如何做到这一点？

请参见：

---

这将有助于发布更多的相关代码，特别是实际进行更换的部分；使用utf8；使用编码；使用Getopt:：Long；使用Pod：：用法；我的%table_位=（'१' => '1', '२' => '2', '३' => '3', '४' => '4', '५' => '5'，…）您没有显示任何替换…请提供

use Data:：Dumper的输出；本地$Data:：Dumper:：Useqq=1；打印（转储程序（$s，grep$table_digits{$_}eq'1'，键%table_digits））

（其中

$s

是包含

०

）。

\p{Nd}

将匹配

num

返回有用内容的字符<代码>\p{Nd}（？

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