Perl文件操作小程序

 1 #!/usr/bin/perl -w
 2 
 3 $tableFile = "table.txt";
 4 $columnFile = "column.txt";
 5 $outputFile = "output.txt";
 6 
 7 open(TB,"< $tableFile");
 8 open(COL,"< $columnFile");
 9 open(OUT,"> $outputFile");
10 
11 @table = <TB>;
12 @column = <COL>;
13 
14 if(@table != @column )
15 {
16     print "error!!";
17 }
18 
19 for($ix = 0;$ix < @table;$ix++)
20 {
21     $tableName = @table[$ix];
22     chomp($tableName);
23     print OUT "[".$tableName."]\n";
24     
25     # @fields = split(/:/, "1:2:3:4:5")
26     @col_names = split(/,/,@column[$ix]);
27         
28     #foreach $col_name (@col_names)
29     for($ix2 = 0;$ix2 < @col_names;$ix2++)
30     {
31         print OUT @col_names[$ix2];
32         
33         if($ix2 < @col_names -1)
34         {
35             print OUT "\n";
36         }        
37     }
38 }
39 
40 close(TB);
41 close(COL);
42 close(OUT);