合并三个文件

pony2001mx

大家好
我想合并三个文件, 目前的方法执行两次LINUX SHELL的sort, join命令.  有没有perl的好方法?  可能复杂些,  我实在不知道思路,  希望有空的时候帮我想想,  THANKS!!

file1
sgroup  student
A         Wang
B         Ma
B         Liu


file2
tgroup  teacher
A          Yu
B          Liu
C          Cao


file3
student  teacher  class  date
Wang     Yu          K        09
Ma         Yu          D        87
Ma         Liu         U        14


理想的 输出结果:
student  sgroup  teacher  tgrouop  class  date
Wang     A           Yu          A            K        09
Ma         B          Yu          A             D        87
Ma         B          Liu         B             U        14

pony2001mx

谢谢huang6894!   思路巧妙!

huang6894

1. #!/usr/bin/perl -w
   
2. 
   
3. #问题不难，楼主应该多思考~
   
4. my %h;
   
5. my $f3 = pop @ARGV;
   
6. 
   
7. 
   
8. #问题不难，楼主应该多思考~
   
9. while (<>) {
   
10.         chomp;
    
11.     my ($v,$k) = (split);
    
12.     $h{$k} = $v;
    
13. }
    
14. 
    
15. #问题不难，楼主应该多思考~
    
16. @ARGV = $f3;
    
17. while(<>){
    
18.         chomp;
    
19.         my($s, $t, $c, $d) = (split);
    
20.         print "$s\t$h{$s}\t$t\t$h{$t}\t$c\t$d\n";
    
21. }
    
22. 
    
23. #问题不难，楼主应该多思考~       

复制代码