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

实现代码

#!/usr/bin/perl -w

$tableFile = "table.txt";
$columnFile = "column.txt";
$outputFile = "output.txt";

open(TB,"< $tableFile");
open(COL,"< $columnFile");
open(OUT,"> $outputFile");

@table = <TB>;
@column = <COL>;

if(@table != @column )
{
    print "error!!";
}

for($ix = 0;$ix < @table;$ix++)
{
    $tableName = @table[$ix];
    chomp($tableName);
    print OUT "[".$tableName."]\n";
    
    # @fields = split(/:/, "1:2:3:4:5")
    @col_names = split(/,/,@column[$ix]);
        
    #foreach $col_name (@col_names)
    for($ix2 = 0;$ix2 < @col_names;$ix2++)
    {
        print OUT @col_names[$ix2];
        
        if($ix2 < @col_names -1)
        {
            print OUT "\n";
        }        
    }
}

close(TB);
close(COL);
close(OUT);