Perl: Это правильный способ создания уникального массива?

Question

Я пытаюсь создать уникальный массив, независимо от его первоначального заказа и не используя модуль, это то, что я придумал до сих пор:

my @arr = qw(b a a c d g e f); 
my %hash; 
@hash{@arr}=(); 
say keys %hash; 

Answer 1

Да. Поскольку хеш-ключи уникальны, это один идиоматический способ сделать это. Количество способов сделать то же самое много.

Вы также можете использовать модуль, например List::MoreUtils

use strict; 
use warnings; 

use List::MoreUtils qw(uniq); 
print join ":", uniq qw(a a a b b c d); 

Выход:

a:b:c:d 

Некоторые различные способы DeDupe:

my @arr = keys { map { $_ => 1 } qw(b a a c d g e f) }; 

фигурными скобками создает анонимный хэш для keys, оператор map создает список пар ключ/значение.

---

my @arr = dedupe(qw(a a b c d d e)); 

sub dedupe { 
    my %hash = map { $_ => 1 } @_; 
    return keys %hash; 
} 

То же самое, но в виде подпрограммы, и разбивается на две строки. Обратите внимание, что оба списка будут в полуслучайном порядке, так как хеши неупорядочены.

Подпрограмма, используемая List::MoreUtils, одинаково проста и, возможно, предпочтительнее, так как она сохранит порядок аргументов. Тем не менее, он все еще использует хэш.

sub uniq { 
    my %seen =(); 
    grep { not $seen{$_}++ } @_; 
} 

Answer 2

Да, вы используете правильный путь, но есть много других способов создания уникального массива.

см. Perlfaq4: How can I remove duplicate elements from a list or array? для получения более подробной информации.

Answer 3

Уникальный массив без заказа комплекта a.k.a. Я знаю, что вы сказали «нет модуля» (почему ?!). Но если вы передумаете, попробуйте Set::Object или Set::Scalar