求助:文本处理

僵尸

回复 9# jason680

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. my %hash;
   
5. 
   
6. open FILE2, "2.txt";
   
7. open FILE1, "1.txt";
   
8. open OUTPUT, ">out.txt";
   
9. 
   
10. while (<FILE2>) {
    
11.    chomp;
    
12.    (my $key, my $value) = split(/,/);
    
13.    $hash{$key} = $value;
    
14. }
    
15. 
    
16. while (<FILE1>) {
    
17.    s/^(\w+),/$hash{$1},/g if exists $hashg{$1};
    
18.    #print $1;
    
19.    print OUTPUT $_;
    
20. }

复制代码

这样应该可以了.谢谢

懒狒狒

学习学习，唉。我要照着例子做做