[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__
此处数据为我的上一篇博文的内容,省略