Re: [問題] 開啟及寫入多個檔案
可以使用下面方式
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
討論串 (同標題文章)
完整討論串 (本文為第 2 之 2 篇)：
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
