帮忙指出错误

xingzhou823

test01.txt内容：
name
song        23        25        36
wei 25        68        25
qiao 25        16        48
sww 321        54        35
su        3        65        15

test02.txt内容：
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;
    

复制代码

运行后，希望得到
test03.txt内容：
songwei   23        25        36
qiaoxiaobo  25        16        48
suwangwen 3        65        15

我的程序哪儿错了？

zhlong8

真没看出来你错哪了，我执行了也是正确的结果。唯一可能出错的就是 07 行

头像亮

2gua

单步执行跟踪来发现问题吧。