Как проверить, отображается ли строка в массиве более одного раза?

Question

Я хотел бы проверить, появляется ли строка в массиве более одного раза. Есть способ, который я нашел, но он требует установить что-то из CPAN. У меня нет доступа root для установки модуля CPAN, поэтому я бы предпочел сделать это без использования CPAN.

Answer 1

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

См. perldoc -f grep.

Вычисляет BLOCK или EXPR для каждого элемента LIST (локально настройки $_ к каждому элементу) и возвращает значение списка, состоящего из тех элементов, для которых выражение оценивали с истинным. В скалярном контексте возвращает количество раз, когда выражение было истинным.

Answer 2

Редактировать: Я предположил, что ваша «строка» не обязательно является дискретным элементом. Чтобы подсчитать каждый элемент, который полностью соответствует, затяните совпадение (т. Е. С /^...$/) или используйте eq, как указывает Синан в комментариях.

---

Вы можете подсчитать количество раз 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) { 
    ... 
}