菜鳥求指教，列表里面重復(fù)的數(shù)字以及重復(fù)的次數(shù)都打印出來

zhuochong

比如如下列表：@arr=(23,5,2,6,8,98,109.29898,32,23,98,98,6,6,7,7,2,0,444);
求大神指導(dǎo)，在線等，謝謝！

只是一個紅薯

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;
   

復(fù)制代碼

zhuochong

回復(fù) 2# 只是一個紅薯


    謝謝指導(dǎo)，剛剛?cè)腴T，map的用法都沒學(xué)過，有沒有其他的方式，謝謝！

hxswdl

還是在chinaunix里學(xué)得快，謝謝！回復(fù) 2# 只是一個紅薯


   

只是一個紅薯

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

復(fù)制代碼

回復(fù) 3# zhuochong