合并文件的一个小脚本

这个perl程序的功能是：

获取第一个参数所指文件的某些域（由第三个参数指定域），合并到第二个参数所指文件的“右侧”。例如：

1.tmp:

111 222 333

1 2 3

2.tmp:

a b c

aa bb cc

那么新文件的内容是（假设第三个参数是2,3，也就是复制第2和第3个域）：

a b c 222 333

aa bb cc 2 3

------------------------------------------------------------------

1. #!/usr/bin/perl
2. 
   
3. if($#ARGV != 2) { 
4.   print "usage: $0 input output fields/n"; 
5.   print "examples: $0 1.tmp 2.tmp /"1,2,3/"/n"; 
6.   exit(0); 
7. }
8. 
   
9. my @fields = split(/,/, $ARGV[2]);
10. 
    
11. open FILE, "$ARGV[0]" or die $!; 
12. my @lines = <FILE>; 
13. close FILE;
14. 
    
15. open FILE, "$ARGV[1]" or die $!; 
16. my @new_lines = <FILE>; 
17. close FILE;
18. 
    
19. my $i = 0; 
20. foreach(@lines){ 
21.   my @F = split(//s+/, $_); 
22.   my $line = ""; 
23.   foreach(@fields){ 
24.     $line .= " $F[$_]"; 
25.   } 
26.   chomp($new_lines[$i]); 
27.   $new_lines[$i] .= " $line/n"; 
28.   $i++; 
29. }
30. 
    
31. open FILE, ">$ARGV[1]" or die $!; 
32. print FILE "@new_lines"; 
33. my @new_lines = ; 
34. close FILE;