作者Keelungman (:3)
看板Perl
标题Re: [问题] 同时开启许多档案
时间Mon Mar 10 12:21:57 2008
※ 引述《Keelungman (:3)》之铭言：
: ※ 引述《MistQ (Mr.Q)》之铭言：
: : 各位好，新手有个问题想请问
: : 我想要做到的是将某个档案A的不同栏位分别存到不同的档案A1,A2,A3..
: : 比如A内容是
: : a1 a2 a3 a4 a5
: : a1 a2 a3 a4 a5
: : ...
: : 处理後变成A1档案内容都是a1 a1,A2档案内容是a2 a2...,etc
: : perl开一个档是 open ( OUT ,"> $a.txt");
: : 不知道怎麽同时开启多个档，然後针对栏位不同分别输出？
不然这样也可, filehandle array
@OUT=();
open(IN, "A");
for $i (1 .. 5){
open($OUT[$i-1], ">>A$i.txt");
}
while(<IN>){
chomp;
@data = split " ";
for $i (0 .. 4){
$filehandle = $OUT[$i];
print $filehandle "$data[$i] ";
}
}
--
站在学问的辽阔大海前
闪亮的波光令人炫目 踏下去时却又感到冰冷深沉
冲浪手轻巧地靠在板上 手指划过水面 漾起珠光
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 220.132.13.146
1F：推 MistQ:thanks, it works well. 03/10 15:08