arrays - Perl: これは一意の配列を作成する正しい方法ですか?

Question

元の順序に関係なく、モジュールを使用せずに一意の配列を作成しようとしています。これがこれまでに思いついたものです。

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

score 6 · Accepted 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

重複排除のいくつかの異なる方法:

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;
}

同じことですが、サブルーチン形式で、2 行に分割されます。ハッシュは順序付けされていないため、両方のリストが半ランダムな順序になることに注意してください。

で使用されるサブルーチンList::MoreUtilsも同様に単純で、引数の順序が保持されるため、おそらく好ましいものです。ただし、まだハッシュを使用しています。

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

score 2 · Accepted Answer

はい、正しい方法を使用していますが、一意の配列を作成する方法は他にもたくさんあります。

score 1 · Accepted Answer

セットとも呼ばれる順序付けのない一意の配列。「モジュールなし」と言ったことは知っています（なぜ?!）。しかし、気が変わったら、Set::Objectまたは試してみてくださいSet::Scalar

3 に答える 3