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

 

Perl檔案操作小程式