幫忙指出錯(cuò)誤

xingzhou823

test01.txt內(nèi)容：
name
song        23        25        36
wei 25        68        25
qiao 25        16        48
sww 321        54        35
su        3        65        15

test02.txt內(nèi)容：
song        songwei
qiao        qiaoxiaobo
su    suwangwen

1. #!/usr/bin/perl
   
2. use warnings;
   
3. use strict;
   
4. 
   
5. open my $fh,"<","test01.txt" or die "Error.\n";
   
6. my ($filename) = @ARGV;
   
7. $filename .= 'test03.txt';
   
8. open WFH,'>',$filename or die "Cannot open $filename : $!\n";
   
9. my %hash;
   
10. open my $sh,"<","test02.txt" or die "Error.\n";
    
11. while(my $line = <$sh>){
    
12. chomp($line);
    
13. my ($head,$name)=split(/\s+/,$line);
    
14.   $hash{$head}=$name;
    
15. }
    
16. my $tmp = <$fh>;
    
17. print WFH $tmp;
    
18. while(my $lines= <$fh>){
    
19. my $cmpkey = (split /\s+/,$lines)[0];
    
20. $lines =~ s/([^ ]*)/$hash{$cmpkey}/ and print WFH $lines if (exists $hash{$cmpkey});
    
21. }
    
22. close $fh;
    
23. close WFH;
    
24. close $sh;
    

復(fù)制代碼

運(yùn)行后，希望得到
test03.txt內(nèi)容：
songwei   23        25        36
qiaoxiaobo  25        16        48
suwangwen 3        65        15

我的程序哪兒錯(cuò)了？

zhlong8

真沒看出來你錯(cuò)哪了，我執(zhí)行了也是正確的結(jié)果。唯一可能出錯(cuò)的就是 07 行

頭像亮

2gua

單步執(zhí)行跟蹤來發(fā)現(xiàn)問題吧。