如何檢查一個字符串是否不止一次出現在數組中？

Question

我想檢查一個字符串是否不止一次出現在一個數組中。我找到了一種方法，但它需要從CPAN安裝一些東西。我沒有root權限可以安裝有問題的CPAN模塊，因此我寧願在不使用CPAN的情況下執行此操作。

Answer 1

my $count = grep $_ eq $word, @array; 

參見perldoc -f grep。

爲求值列表的每個元素（在本地設定$_到每個元件）的BLOCK或EXPR並返回由該表達式評估爲真這些元素的列表值。在標量上下文中，返回表達式爲真的次數。

Answer 2

編輯：我認爲你的「字符串」不一定是離散的元素。爲了計算完全匹配的每個元素，收緊匹配（即使用/^...$/）或使用eq，正如Sinan在評論中指出的那樣。

---

你可以指望的次數grep數組中的字符串相匹配：

my @animals = qw/duck goose camel squirrel camel camelback/ ; 

if (scalar (grep { /^camel$/ } @animals) > 1) { 
    print "more than one" ; 
} 

較短的形式：

say "more" if (grep /^camel$/, @animals) > 1 ; 
say ~~(grep /^camel$/, @animal); 

「~~」 是短期的 「scalar」 在這裏。

Answer 3

當向Stack Overflow尋求幫助時，通常會希望您顯示一些代碼，以便我們幫助您和。這不是在Perl編程中獲得碰撞過程的地方。

處理此問題的最通用的方法是構建一個散列，其中的鍵是列表中的所有不同值，並且值是該項出現的次數。這個程序不正是發現發生的值不止一次

use strict; 
use warnings; 
use 5.010; 

my @animals = qw/ duck goose camel squirrel camel /; 

my %counts; 
++$counts{$_} for @animals; 

say for grep $counts{$_} > 1, keys %counts; 

輸出

camel 

或者，如果你有，你要檢查它是否多次發生特定的值，您可以查詢哈希直接

if ($counts{goose} > 1) { 
    ... 
}