求数组@k,里面重复元素的次数，并按照 @v数组排序

scriptshooks

@k=qw/b013 c014 a012 a012 b013/;     @v=qw/a012 b013 c014/;     求数组@k,里面重复元素的次数，并按照 @v数组排序 哪位能帮忙看看呢，先谢啦

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

记数用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 大神的解答，学习涨知识了，想意思下的但是微信签名错误，不知道为啥