作者Keelungman (:3)
看板Perl
标题Re: [问题] 同时开启许多档案
时间Mon Mar 10 11:48:06 2008
※ 引述《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