Re: [問題] 如何同時讀取多個檔案進行處理
※ 引述《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
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 4 之 4 篇)：
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
