有重復(fù)元素的數(shù)組怎么求每個(gè)元素出現(xiàn)的個(gè)數(shù)

賽萌

如：@wu=qw("內(nèi)蒙，"內(nèi)蒙，"內(nèi)蒙，"黑龍，"黑龍，湖北 湖北）；
得到：
內(nèi)蒙 3
黑龍 2
湖北 2



或者
"內(nèi)蒙， 3
"黑龍，2
湖北 2

謝謝，已經(jīng)匹配問題已經(jīng)解決了
if($_=~s/(\")(\d+)(\S*)(\,)/$3/){
                print "$_\n";
        }
        elsif($_=~s/(\d+)(\w*)/$2/){
                print "$_\n";
        }
搜之前的帖子，原來這問題早就有蘭花仙子大人回答過了，我粘貼過來：
perl -e '@arr=(1,2,3,3,4,2,3,5);$hash{$_}++ for @arr;print "$_ $hash{$_}\n" for (keys %hash)'

sunzhiguolu

回復(fù) 1# 賽萌
你這個(gè)數(shù)組有問題, => "Possible attempt to separate words with commas".

1. my @wu = qw ("內(nèi)蒙 , "內(nèi)蒙 , "內(nèi)蒙 , "黑龍 , "黑龍 , 湖北 湖北);

復(fù)制代碼

應(yīng)該將數(shù)組中的逗號(hào)去掉, 至少使用 qw 操作符應(yīng)該是這樣吧.
1.> 將文本放入文本中
2.> 用逗號(hào)分割單詞, 使用小括號(hào)的形式
3.> 使用 qw 操作符圈引單詞, 用空格分割

如果在你那里沒有這個(gè)問題, 請(qǐng)告訴我原因.

sunzhiguolu

以下是去除逗號(hào)后的代碼:

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my @aAll = qw ("內(nèi)蒙 "內(nèi)蒙 "內(nèi)蒙 "黑龍 "黑龍 湖北 湖北);
   
6. my %hStat;
   
7. foreach (@aAll){
   
8.         s/\A"//;
   
9.         $hStat{$_}++;
   
10. }
    
11. foreach (keys %hStat){
    
12.         printf "%s %d\n", $_, $hStat{$_};
    
13. }

復(fù)制代碼

stanley_tam

還帶中文。。這樣行不？

1. #!perl
   
2. use Encode;
   
3. 
   
4. @wu = ("內(nèi)蒙", "內(nèi)蒙","內(nèi)蒙","黑龍","黑龍","湖北","湖北");
   
5. 
   
6. $u{$_}++ for @wu;
   
7. 
   
8. for my $key (keys %u){
   
9.     print "@{ [encode('gb2312', decode('utf8',$key) ) ]} => $u{$key}$/";
   
10. }
    
11. 
    
12. __END__

復(fù)制代碼

賽萌

回復(fù) 3# sunzhiguolu


    我也不知道為什么會(huì)有這引號(hào)跟逗號(hào)，這是電商查看用戶登錄手機(jī)app下單買東西的手機(jī)號(hào)跟所在地，我負(fù)責(zé)統(tǒng)計(jì)所在地的用戶量，就是看看哪個(gè)省的登錄的手機(jī)號(hào)有多少個(gè)。

sunzhiguolu

回復(fù) 5# 賽萌
哦, 懂了!