perlの配列

Question

に重複したエントリを持つ数学は、私は2つの配列を持っている：

my @name = (bob, bob, dave, john, john, mary, mary, mary); 
my @cost = (5, 7, 4, 4, 4, 6, 3 , 4); 

出力がちょうどになるので、私はそれらを一緒にマッピングしたい：

bob 12 
dave 4 
john 8 
mary 13 

配列の変化を私がすることができますが参照を使用しません。 @costを@nameでグループ化し、@costの値を追加するにはどうすればよいですか？このような

Answer 1

私はこのようなものを試します。

#!/usr/bin/perl 
use strict; use warnings; use Data::Dumper; 
my @name = qw(bob bob dave john john mary mary mary); 
my @cost = qw(5 7 4 4 4 6 3 4); 
my %seen =(); 
foreach(0..scalar(@name)-1){ 
    if (!exists $seen{$name[$_]}){ 
     $seen{$name[$_]} = $cost[$_]; 
    } 
    else{ 
     my $sum = 0; 
     $sum = $seen{$name[$_]}; 
     my $new = $sum + $cost[$_]; 
     $seen{$name[$_]} = $new; 
    } 
} 
print Dumper(\%seen); 

OUTPUT：

$VAR1 = { 
    'bob' => 12, 
    'john' => 8, 
    'dave' => 4, 
    'mary' => 13 
}; 

Answer 2

何かが動作するはずです：入力を消費するコードの

for (keys %myHash) {...} 

Answer 3

もっとPerl的ビット：

my %myHash =(); 
for (my $i=0 ; $i<$#name ; $i++) { 
    $myHash{$name[$i]} += $cost[$i]; 
} 

を次に、あなただけの総コストを得るために配列をループしてい：

..ソースデータは生きていないためです。

Answer 4

一部map策略：個人的に

my %hash; 
%hash = map {$name[$_] => $hash{$name[$_]} += $cost[$_]} 0..$#name; 

それは見ることがはるかに簡単だとして、私は、しかしfor()またはwhile()ループ溶液でいいよ一目で起こっていること。