作者timmerix (GAIA)
看板Perl
标题[问题] 开启及写入多个档案
时间Sat Apr 25 00:38:04 2009
因为要把程式输出的资料分类再依照资料内容储存到不同档案
所以需要同时开启多档案并写入
举例就像
@filename=('a','b','c','d');
for $y(0..3)
{
for $z(0..3)
{
open($filename[$y]$filename[$z], "> $filename[$y]$filename[$z].txt") || die "$!\n";
}}
...
程式是for回圈输出很多笔$data资料
然後把资料分类储存到指定档案中...
print $filename[$y]$filename[$z] "$data\n";
最後再关闭
for $y(0..3)
{
for $z (0..3)
{
close($filename[$y]$filename[$z]);
}}
不过以上类似作法（加双引号..等等）试很多次似乎都不可行
是因为档案代码不能用变数吗？
感谢
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.112.20.70
※ 编辑: timmerix 来自: 140.112.20.70 (04/25 00:38)