Как мне сохранить дублирующее значение из массива или хеша в Perl?
-
05-07-2019 - |
Вопрос
Давайте сделаем это очень легко. Что я хочу:
@array = qw/one two one/;
my @duplicates = duplicate(@array);
print "@duplicates"; # This should now print 'one'.
Как напечатать повторяющиеся значения массива / хэша?
Решение
sub duplicate {
my @args = @_;
my %items;
for my $element(@args) {
$items{$element}++;
}
return grep {$items{<*>} > 1} keys %items;
}
Другие советы
# assumes inputs can be hash keys
@a = (1, 2, 3, 3, 4, 4, 5);
# keep count for each unique input
%h = ();
map { $h{<*>}++ } @a;
# duplicate inputs have count > 1
@dupes = grep { $h{<*>} > 1 } keys %h;
# should print 3, 4
print join(", ", sort @dupes), "\n";
Дополнительная многословная, более читаемая версия того, что вы хотите сделать:
sub duplicate {
my %value_hash;
foreach my $val (@_) {
$value_hash{$val} +=1;
}
my @arr;
while (my ($val, $num) = each(%value_hash)) {
if ($num > 1) {
push(@arr, $val)
}
}
return @arr;
}
Это может быть значительно сокращено, но я намеренно оставил это подробным, чтобы вы могли следовать за ним.
Я не проверял это, так что следите за моими опечатками.
Используйте словарь, поместите значение в ключ, а количество в значение.
Ах, только что заметил, что вы пометили как Perl
while ([...]) { $hash{[dbvalue]}++ }
В вопросе не указан порядок, в котором должны быть возвращены дубликаты.
Я могу думать о нескольких возможностях: все равно; по порядку первого / второго / последнего вхождения в списке ввода; отсортирован.
Я иду в гольф!
sub duplicate {
my %count;
grep $count{ Я иду в гольф!
<*>}++, @_;
}
@array = qw/one two one/;
my @duplicates = duplicate(@array);
print "@duplicates"; # This should now print 'one'.
# or if returning *exactly* 1 occurrence of each duplicated item is important
sub duplicate {
my %count;
grep ++$count{ Я иду в гольф!
<*>} == 2, @_;
}