Re: [問題] 開啟及寫入多個檔案

[LiloHuang (相見不如懷念)]

可以使用下面方式

use FileHandle;

@filename=('a','b','c','d');
my %table;

for $y(0..3) {
        for $z(0..3) {
                $table{"$filename[$y]$filename[$z]"} = new FileHandle;
                $table{"$filename[$y]$filename[$z]"}->open(
                        ">$filename[$y]$filename[$z].txt"
                ) or die "Could not open file\n";
        }
}


for $y(0..3) {
        for $z(0..3) {
                $table{"$filename[$y]$filename[$z]"}->print("test\n");
        }
}


for $y(0..3) {
        for $z(0..3) {
                $table{"$filename[$y]$filename[$z]"}->close();
        }
}


--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 211.79.63.18