Re: [問題] 同時開啟許多檔案

[Keelungman (:3)]

※ 引述《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
推 MistQ:thanks, it works well.