我如何使用awk或perl处理此文件？

Question

我想处理一些格式如下的日志文件:

<itemA>    <num>
<itemB>    <num>
<itemC>    <num>

我想得到一个包含以下信息的摘要

对于每个项目,我想知道该<num>字段的范围和平均值<num>

Answer 1

use Statistics::Lite;

while (<>)
{
   my ($a,$b) = split;
   push(@{$items{$a}},$b);
}
foreach my $key (keys %items)
{
  print "$key\n";
  print Statistics::Lite::statsinfo(@{$items{$key}});
}

显然你可以手动进行统计,但是......为什么要这么麻烦？