値が配列で繰り返されるかどうかをテストするにはどうすればよいですか？

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

試してみた。乾杯。