两个数组对应怎么相加

scriptshooks

@a=(m,n,n,m,n,m,n);
@b=(3,4,5,6,7,8,9);
@c=(17,25 );

怎么实现 @c 呢

上面17是@a数组里面所有 m 对应的 @b 数组里面的 3+6+8 相加结果

上面25是@a数组里面所有 n 对应的 @b 数组里面的 4+5+7+9 相加结果

yinyuemi

回复 1# scriptshooks

1. perl -le '@a=qw/m n n m n m n/;
   
2. @b=qw/3 4 5 6 7 8 9/;
   
3. map{$c[$a[$_]eq "m"?0:1]+=$b[$_]}0..$#a;
   
4. print "@c"'
   
5. 17 25
   

复制代码

huang6894

1. @a=qw/m n n m n m n/;
   
2. @b=qw/3 4 5 6 7 8 9/;
   
3. my ($i,$tem,%a,@c);
   
4. my %b = map {++$i,$_} @b;
   
5. map{$a{$_} += $b{++$tem};}@a;
   
6. foreach my $k (sort keys %a){
   
7. #       print $a{$k}.$/;
   
8.         push @c,$a{$k};
   
9. }
   

复制代码

scriptshooks

多谢 walklan 、yinyuemi、 huang6894 几位的帮忙，长知识了

清泉一边

1. #!/usr/bin/perl  -w
   
2. use strict;
   
3. my @a = ('m', 'n', 'n', 'm', 'n', 'm', 'n');
   
4. my @b = (3, 4, 5, 6, 7, 8, 9);
   
5. my (%hash,@c);
   
6. while (my $a = shift @a){
   
7. my $b = shift @b;
   
8.     $hash{$a} += $b;
   
9. }
   
10. foreach my $k (sort keys %hash){
    
11. push @c,$hash{$k};
    
12. }
    
13. print join "\t",@c;

复制代码

b114213903

1. #!/usr/bin/perl
   
2. use strict;
   
3. my @a = ('m', 'n', 'n', 'm', 'n', 'm', 'n');
   
4. my @b = (3, 4, 5, 6, 7, 8, 9);
   
5. 
   
6. my %hash=();
   
7. 
   
8. for (my $i=0;$i<@a;$i++){
   
9.         $hash{"$a[$i]"} += $b[$i];
   
10. }
    
11. 
    
12. my @c= values %hash;
    
13. 
    
14. print "@c\n";

复制代码

xiumu2280

1. my @a=qw(m n n m n m n);
   
2. my @b=(3,4,5,6,7,8,9);
   
3. my @c;
   
4. 
   
5. while (my ($k,$v)=each @a){
   
6.         $v eq 'm' ? ($c[0]+=$b[$k]) : ($c[1]+=$b[$k]);
   
7. }

复制代码