作者polla ( 过客)
看板perl
标题Re: [问题] 如何同时读取多个档案进行处理
时间Fri Jul 23 19:33:41 2004
※ 引述《littleshan (我要加入剑道社!)》之铭言：
: ※ 引述《polla ( 过客)》之铭言：
: : 大家好!! 我是一个新手
: : 目前利用perl来处理资料 有个问题请教各位大大
: : 不知道perl有没有同时开启档案 依序读取档案的资料的功能
: : 譬如说 open file1 file2 file3
: : 将3个档案的纪录 依序读入一个array
: 把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 而不是两栏的值一并读入
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.116.100.65