Re: [問題] 同時開啟許多檔案
※ 引述《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");
: 不知道怎麼同時開啟多個檔，然後針對欄位不同分別輸出？
不見的硬要同時開這麼多檔
@output=();
open(IN, "A");
while(<IN>){
chomp;
@data = split " ";
for $i (0 .. 4){
$output[$i] .= "$data[$i] ";
}
}
for $i (1 .. 5){
open(OUT, ">A$i.txt");
print OUT $output[$i-1];
close(OUT);
}
--
站在學問的遼闊大海前
閃亮的波光令人炫目 踏下去時卻又感到冰冷深沉
衝浪手輕巧地靠在板上 手指劃過水面 漾起珠光
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 220.132.13.146
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
