[perl]字串轉拼音首字母(支援多音字)

標籤：

實現的思路是,查表找到該字的所有讀音,然後取首字母.

 

代碼:

while (<DATA>) {  chomp;  my ($head, $all) = /^(.{3})(.*)$/;  $all =~ s/^\s+//;    ### 只保留無音標號的首字母  sub toshorter {    my $str = $_[0];        $str =~ s/ā|á|ǎ|à/a/g;    $str =~ s/ē|é|ě|è/e/g;    $str =~ s/ō|ó|ǒ|ò/o/g;        $str =~ s/^([a-z]).*$/\1/;        return $str;  };    my @tmp;    for (split ‘,‘, $all) {    push @tmp, toshorter($_);  }    $all = join ‘,‘, @tmp;    ###    $pytable{$head} = $all;}sub getheadstr {  my @str = $_[0] =~ /.{3}/g;  my @res;    sub loop {    my ($no, $head) = @_;        for (split ‘,‘, $pytable{$str[$no]}) {      if ($no == $#str) {        push @res, $head . ‘‘ . $_;      } else {        loop($no + 1, $head . ‘‘ . $_);      }    }  }    loop(0, "");    return join ‘ ‘, grep { ++$count{ $_ } < 2; } @res; }print getheadstr("樂筠");__DATA__此處資料為我的上一篇博文的內容,省略

 

資料在此

[perl]字串轉拼音首字母(支援多音字)