求數(shù)組@k,里面重復元素的次數(shù)，并按照 @v數(shù)組排序

scriptshooks

@k=qw/b013 c014 a012 a012 b013/;     @v=qw/a012 b013 c014/;     求數(shù)組@k,里面重復元素的次數(shù)，并按照 @v數(shù)組排序 哪位能幫忙看看呢，先謝啦

523066680

1. my @k = qw/b013 c014 a012 a012 b013/;
   
2. my @v = qw/a012 b013 c014/;
   
3. my %count;
   
4. 
   
5. grep { $count{$_}++ } @k;
   
6. 
   
7. for my $k (@v)
   
8. {
   
9.     printf "%s times: %d\n", $k, $count{$k};
   
10. }

復制代碼

asthman

記數(shù)用hash

1. @k=qw/b013 c014 a012 a012 b013/;
   
2. @v=qw/a012 b013 c014/;
   
3. 
   
4. my %count;
   
5. foreach my $key ( @k ) {
   
6.     $count{$key}++;
   
7. }
   
8. 
   
9. foreach my $key ( @v ) {
   
10.     print "key: $key, count: $count{$key}\n";
    
11. }

復制代碼

scriptshooks

感謝 asthman 大神的解答，學習漲知識了，想意思下的但是微信簽名錯誤，不知道為啥