菜鸟求指教，列表里面重复的数字以及重复的次数都打印出来

zhuochong

比如如下列表：@arr=(23,5,2,6,8,98,109.29898,32,23,98,98,6,6,7,7,2,0,444);
求大神指导，在线等，谢谢！

只是一个红薯

1. #!usr/bin/perl
   
2. use strict;
   
3. use 5.018;
   
4. my @arr=(23,5,2,6,8,98,109.29898,32,23,98,98,6,6,7,7,2,0,444);
   
5. my %h;
   
6. map{!$h{$_}?$h{$_}=1:$h{$_}++}@arr;
   
7. say $_.'=>'.$h{$_}.' times' for keys %h;
   

复制代码

zhuochong

回复 2# 只是一个红薯


    谢谢指导，刚刚入门，map的用法都没学过，有没有其他的方式，谢谢！

hxswdl

还是在chinaunix里学得快，谢谢！回复 2# 只是一个红薯


   

只是一个红薯

1. for(@arr){
   
2.   if($h{$_}){
   
3.     $h{$_}++;
   
4.   }else{
   
5.     $h{$_} = 1;
   
6.   }
   
7. }

复制代码

回复 3# zhuochong