如何測試數組中是否重複一個值？

Question

我正在做一個以數字列表作爲參數的子程序。我想要做的是檢查列表中是否有重複的值。如果有重複的號碼，請打印一條消息並停止該程序。如果沒有重複的號碼，繼續執行。

例如：

if (there_is_number_repeated){ 
    print "There is a number repeated";} 
else{ 
    run this code...} 

我試圖做到這一點創建與列表值的哈希，然後檢查是否有值> 1。

use strict; 
    use warnings; 

sub name_subroutine{ 
    my (@numbers)=@_; 
    my $n=scalar(@numbers); 

    my %table=(); 

    foreach my $i(@numbers){ 
    if (exists $tabla{$i}){ 
     $tabla{$i}+=1;} 
    else{ 
     $tabla{$i} = 1; 
    } 
my @values = values %tabla; 
} 
} 

在這裏，我不知道繼續。有沒有辦法以業餘的方式做到這一點？我是Perl新手。

謝謝！

Answer 1

我只想做：

my %uniq; 
if (grep ++$uniq{$_} > 1, @numbers) { 
    # some numbers are repeated 
} 

在你現有的代碼（一對夫婦更正）：

my %table=(); 

foreach my $i(@numbers){ 
    if (exists $table{$i}){ 
     $table{$i}+=1;} 
    else{ 
     $table{$i} = 1; 
    } 
} 
my @values = values %table; 

你不需要檢查是否存在;如果+= 1或++不存在，則會將其設置爲1。而你不想要的值（這些都是多少次，每次數組值被發現的只是計數），你想要的按鍵，特別是那些爲它的值是> 1：

my @repeated = grep $table{$_} > 1, keys %table; 

Answer 2

嘗試和測試。乾杯。