Perl文件操作小程序

输入文件

1、[table.txt]

STUTBL
DBTBL
NAMETBL

2、[column.txt]

STU1,STU2,STU3
DB1
NAME1,NAME2

输出文件

[output.txt]

[STUTBL]
STU1
STU2
STU3
[DBTBL]
DB1
[NAMETBL]
NAME1
NAME2

实现代码

 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);