Как получить список предметов с ровно одним дубликатом в Perl?

Question

У меня есть список строк, и мне нужно удалить все элементы, которые являются уникальными или имеют более одного дубликата. Другими словами, мне нужно только те предметы, , которые в списке ровно в два раза . Как я могу сделать это в Perl ?

Answer 1

Это особый случай классического рецепта удаления дубликатов. Когда ваши элементы являются строками, это очень просто в Perl 5:

my %seen;
for my $item (@list) {
    $seen{$item}++;
}

my @twice = grep { $seen{$_} == 2 } keys(%seen);

Это размер O (N) по размеру списка, но я не думаю, что вы можете сойтись с такими вещами, не смотря на каждый элемент хотя бы один раз ...