作者littleshan (我要加入剑道社!)
看板perl
标题Re: [问题] 如何同时读取多个档案进行处理
时间Fri Jul 23 16:46:41 2004
※ 引述《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);
: 最後输出到单一档案
: 请各位大大帮我解决这个疑惑????
输出档案我应该不用说了吧
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.112.244.211