作者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