per l查找單詞發(fā)音

mingoing

給定英文單詞列表wordlist.txt。如下：
100
14th
1960s
2001
27
50
500000
6
8000
800000
a
able
about
abroad
access
accommodation
account
act
action
actually
affected
afford
在詞典中找出詞的發(fā)音輸出到oov1.txt文件，沒有的單詞輸出到oov.txt文件。詞典如下：
a ah0
a ey1
able ey1 b ah0 l
about ah0 b aw1 t
abroad ah0 b r ao1 d
access ae1 k s eh2 s
accommodation ah0 k aa2 m ah0 d ey1 sh ah0 n
account ah0 k aw1 n t
act ae1 k t
action ae1 k sh ah0 n
actually ae1 k ch ah0 w ah0 l ih0
all ao1 l
allowed ah0 l aw1 d
also ao1 l s ow0
altitudes ae1 l t ih0 t uw2 d z
altitudes ae1 l t ih0 t uw2 z
am ae1 m
am ey1 eh1 m
america ah0 m eh1 r ah0 k ah0
america ah0 m eh1 r ih0 k ah0
我的程序如下：

1. #!/usr/bin/perl
   
2. my %hash;
   
3. open Afile,"newdict.txt";
   
4. open Bfile,"WordList.txt";
   
5. open OOV,">oov.txt";
   
6. open OOV1,">oov1.txt";
   
7. while(<Afile>){
   
8.         chomp;       
   
9.         my @word=split /\s+/,$_,2;
   
10.         $key=@word[0];
    
11.         $hash{$key}=@word[1];
    
12. }
    
13. chomp (my @list=<Bfile>);
    
14. foreach $kkk (@list){
    
15.         if($hash{$kkk}){
    
16.                 print OOV1 "$kkk =>$hash{$kkk}\n";
    
17.         }
    
18.         else{
    
19.                 print OOV "$kkk\n";
    
20.         }
    
21. }

復制代碼

請問各位大神，我的程序哪里出錯了？謝謝啦

mingoing

莫得人呢，都在搶票呢？，單詞后面的一串是發(fā)音，我用split分開他們的。

mcshell

1. $key=@word[0];
   
2. $hash{$key}=@word[1];

復制代碼

換

1. $key=$word[0];
   
2. $hash{$key}=$word[1];

復制代碼

mingoing

還是不行。。回復 3# mcshell


   

pitonas

據(jù)說很難，我也就不試試了。

xiumu2280

你的哈希鍵有重復啊，而且是出了什么問題，至少放個圖什么的 回復 4# mingoing


   

yestreenstars

要不你說一下你想得到怎樣的oov.txt和oov1.txt？

MMMIX

回復 1# mingoing


    這代碼風格也太慘不忍睹了點，哪學的？

只是一個紅薯

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. open Afile,'<','newdict.txt';
   
5. open LIST,'<','wordlist.txt';
   
6. open OOV1,'>>','oov1.txt';
   
7. open OOV,'>>','oov.txt';
   
8. my %hash;
   
9. while(<Afile>){
   
10.     chomp and next if /^\s+$/;
    
11.     my($a,$b)=split /\s+/,$_,2;
    
12.    unless($hash{$a}){
    
13.      $hash{$a}=[[$b]];
    
14.     }else{
    
15.     push @{$hash{$a}},[$b];
    
16.          }
    
17. }
    
18. for my $t(<LIST>){
    
19.     chomp($t);
    
20.     if($hash{$t}){
    
21.       print  OOV1 $t."\t".$_->[0] for @{$hash{$t}};
    
22.     }else{
    
23.         print OOV $t."\n";
    
24.     }
    
25. }
    

復制代碼

pitonas

{:2_172:}

1. #!/usr/bin/perl -w
   
2. 
   
3. open Afile, 'newdict.txt';
   
4. open Bfile, 'WordList.txt';
   
5. open OOV,   '>', 'oov.txt';
   
6. open OOV1,  '>', 'oov1.txt';
   
7. my %newdict;
   
8. 
   
9. while (<Afile>) {
   
10.     my ( $key, $value ) = split;
    
11.     push @{ $newdict{$key} }, $value;
    
12. }
    
13. 
    
14. while (<Bfile>) {
    
15.     chomp;
    
16.     my $key = $_;
    
17.     $newdict{$key}
    
18.       ? print OOV1 map { "$key\t=>\t$_\n" } @{ $newdict{$key} }
    
19.       : print OOV "$_\n";
    
20. }
    
21. 
    

復制代碼