Perlを使用して一意の数と合計を出力するには

Question

Perlを初めて使用しています。次のデータのユニークな数と合計を見つける必要があります。私はあなたの助けを求める。

08/2009 I-111 300 
08/2009 I-112 400 
08/2009 I-113 500 
10/2009 I-200 1000 
10/2009 I-300 500 
11/2009 I-300 100 
11/2009 I-100 400 

だから私は、あなたが正確に何をしたいわからないこの

08/2009 3 1200 
10/2009 2 1500 

Answer 1

のように見つける必要があるが、これは大丈夫でしょうか？

#!/usr/bin/perl 
use strict; 
use warnings; 
use Data::Dump qw(dump); 

my %h; 
while(<DATA>) { 
    chomp; 
    my @el = split; 
    $h{$el[0]}{count}++; 
    $h{$el[0]}{sum} += $el[2]; 
} 
dump%h; 

__DATA__ 
08/2009 I-111 300 
08/2009 I-112 400 
08/2009 I-113 500 
10/2009 I-200 1000 
10/2009 I-300 500 
11/2009 I-300 100 
11/2009 I-100 400 

出力：List::MoreUtilsから

(
    "08/2009", 
    { count => 3, sum => 1200 }, 
    "11/2009", 
    { count => 2, sum => 500 }, 
    "10/2009", 
    { count => 2, sum => 1500 }, 
) 

Answer 2

uniqリストのユニークな要素を返す：

use List::MoreUtils 'uniq'; 
my @x = uniq 1, 1, 2, 2, 3, 5, 3, 4; # (1,2,3,5,4) 

スカラーコンテキストでリスト表現は、要素の数を返します。 List::Utilから

my @array = (5,6,7,8); 
my $a_count = @array;  # 4 

my %hash = ('x' => 1, 'y' => 2); 
my $h_count = keys %hash; # 2 

sumリストの要素を追加します。

use List::Util 'sum'; 
my @array = (1,2,3,4,5); 
print sum @array; # 15 

Answer 3

日時：

use Data::Dumper; 
print Dumper \%h; 

をそれとも、ただ書くことができます：：M42の答え、試す

while (my ($key, $values) = each %h) { 
    print "$key $values->{count} $values->{sum}\n"; 
} 

Answer 4

通常、私は自由タイプのもののために私のプログラムを書く行いません。既にM42がそれをほとんど実行して以来、ここにはData::Dumpがありません：

#!/usr/bin/perl 
use strict; 
use warnings; 

my %h; 
while(<DATA>) { 
    chomp; 
    my @el = split; 
    $h{$el[0]}->{count}++; 
    $h{$el[0]}->{sum} += $el[2]; 
} 

foreach my $element (sort keys %h) { 
    printf "%-10.10s %-6.6s %4d\n", $element, 
    $h{$element}->{count}, $h{$element}->{sum}; 
} 
__DATA__ 
08/2009 I-111 300 
08/2009 I-112 400 
08/2009 I-113 500 
10/2009 I-200 1000 
10/2009 I-300 500 
11/2009 I-300 100 
11/2009 I-100 400 

今すぐlearn yourself some Perl！