use Lingua::ZH::Romanize::Pinyin;
my $conv = Lingua::ZH::Romanize::Pinyin->new();
my @array = $conv->string( "你好" );
foreach my $pair ( @array ) {
my( $raw, $roman ) = @$pair;
print "$raw = $roman\n" if defined $roman;
}
# 你 = ni3
# 好 = hao3/hao4
# Based on PY.tit by cxterm (GPL)