Perl – 汇总文件中的数据

概述什么是从Perl中有大约200万条记录的文件中汇总数据的最佳方法？ 例如：这样的文件, ABC | XYZ | DEF | EGH | 100 ABC | XYZ | DEF | FGH | 200 SDF | GHT | WWW | RTY | 1000 SDF | GHT | WWW | TYU | 2000 需要在前3列中总结如下, ABC | XYZ | DEF | 300 SDF | G 什么是从Perl中有大约200万条记录的文件中汇总数据的最佳方法？

例如：这样的文件,

ABC | XYZ | DEF | EGH | 100

ABC | XYZ | DEF | FGH | 200

SDF | GHT | WWW | RTY | 1000

SDF | GHT | WWW | TYU | 2000

需要在前3列中总结如下,

ABC | XYZ | DEF | 300

SDF | GHT |万维网| 3000

克里斯

解决方法 假设总共有五列,其中第五列是数字,并且您总是希望前三列成为关键…

use warnings;use strict;my %totals_hash;while (<>){  chomp;  my @cols = split /\|/;  my $key = join '|',@cols[0..2];  $totals_hash{$key} += $cols[4];}foreach (sort keys %totals_hash){  print $_,'|',$totals_hash{$_},"\n";}

总结

以上是内存溢出为你收集整理的Perl – 汇总文件中的数据全部内容，希望文章能够帮你解决Perl – 汇总文件中的数据所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。