作者littleshan (我要加入劍道社!)
看板perl
標題Re: [問題] 如何同時讀取多個檔案進行處理
時間Sat Jul 24 03:09:27 2004
※ 引述《polla ( 過客)》之銘言：
: ※ 引述《littleshan (我要加入劍道社!)》之銘言：
: : 把file1 file2 file3內容讀進陣列:
: : map {open F,$_; push @rec,<F>;} qw(file1 file2 file3);
: : 加總:
: : chomp and $sum+=$_ foreach (@rec);
: : 平均:
: : $avg=$sum/int(@rec);
: : 輸出檔案我應該不用說了吧
: 感謝你 不過再請問一下 假設如果檔案中有兩個以上欄位
: 如 file1 file2 file3
: 1 xx 1 xx 1 xx
: 2 yy 2 yy 2 yy
: 3 zz 3 zz 3 zz
: : : : : : :
: 我的目的是要將 xx yy zz等等的值加總平均 可否用單一陣列就可以將第二欄
: 讀入@rev 而不是兩欄的值一併讀入
map {open F,$_; push @rec,map {(split / /)[1]} <F>;} qw(file1 file2 file3);
--
void
null
undef
NaN
Nil
ε
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.112.244.211