blocks|key|1783958|text|您可以像在perlfaq4中演示的那样执行以下操作|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|1783959|sub+uniq+{
++++my+%25seen;
++++grep+!$seen{$_}%2B%2B,+@_;
}

my+@array+=+qw(one+two+three+two+three);
my+@filtered+=+uniq(@array);

print+"@filtered\n";|code-block|syntax|javascript|1783960|输出：|1783961|one+two+three|1783962|如果要使用模块，请尝试List::MoreUtils中的uniq函数|style|CODE|1783963|entityMap|0|LINK|mutability|MUTABLE|url|http://perldoc.perl.org/perlfaq4.html#How-can-I-remove-duplicate-elements-from-a-list-or-array%253f|1|https://metacpan.org/pod/List::MoreUtils^0|5|8|0|0|0|0|0|B|F|S|4|B|F|1|0^^$0|@$1|2|3|4|5|6|7|10|8|@]|9|@$A|11|B|12|1|13]]|C|$]]|$1|D|3|E|5|F|7|14|8|@]|9|@]|C|$G|H]]|$1|I|3|J|5|6|7|15|8|@]|9|@]|C|$]]|$1|K|3|L|5|F|7|16|8|@]|9|@]|C|$G|H]]|$1|M|3|N|5|6|7|17|8|@$A|18|B|19|O|P]|$A|1A|B|1B|O|P]]|9|@$A|1C|B|1D|1|1E]]|C|$]]|$1|Q|3|-4|5|6|7|1F|8|@]|9|@]|C|$]]]|R|$S|$5|T|U|V|C|$W|X]]|Y|$5|T|U|V|C|$W|Z]]]]

You can do something like this as demonstrated in <a href="http://perldoc.perl.org/perlfaq4.html#How-can-I-remove-duplicate-elements-from-a-list-or-array%3f" rel="noreferrer">perlfaq4</a>:

<pre><code>sub uniq {
 my %seen;
 grep !$seen{$_}++, @_;
}

my @array = qw(one two three two three);
my @filtered = uniq(@array);

print "@filtered\n";
</code></pre>

Outputs:

<pre><code>one two three
</code></pre>

If you want to use a module, try the <code>uniq</code> function from <a href="https://metacpan.org/pod/List::MoreUtils" rel="noreferrer"><code>List::MoreUtils</code></a>

blocks|key|1569169|text|从CPAN安装List::MoreUtils|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|1569170|然后在你的代码中：|1569171|use+strict;
use+warnings;
use+List::MoreUtils+qw(uniq);

my+@dup_list+=+qw(1+1+1+2+3+4+4);

my+@uniq_list+=+uniq(@dup_list);|code-block|syntax|javascript|1569172|entityMap|0|LINK|mutability|MUTABLE|url|http://search.cpan.org/dist/List-MoreUtils/^0|7|F|0|0|0|0^^$0|@$1|2|3|4|5|6|7|S|8|@]|9|@$A|T|B|U|1|V]]|C|$]]|$1|D|3|E|5|6|7|W|8|@]|9|@]|C|$]]|$1|F|3|G|5|H|7|X|8|@]|9|@]|C|$I|J]]|$1|K|3|-4|5|6|7|Y|8|@]|9|@]|C|$]]]|L|$M|$5|N|O|P|C|$Q|R]]]]

Install <a href="http://search.cpan.org/dist/List-MoreUtils/" rel="noreferrer">List::MoreUtils</a> from CPAN

Then in your code:

<pre><code>use strict;
use warnings;
use List::MoreUtils qw(uniq);

my @dup_list = qw(1 1 1 2 3 4 4);

my @uniq_list = uniq(@dup_list);
</code></pre>

blocks|key|1569121|text|我通常的做法是：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1569122|my+%25unique+=+();
foreach+my+$item+(@myarray)
{
++++$unique{$item}+%2B%2B;
}
my+@myuniquearray+=+keys+%25unique;|code-block|syntax|javascript|1569123|如果您使用散列并将项添加到散列中。你还有一个额外的好处，就是知道每一项在列表中出现的次数。|1569124|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|L|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|M|8|@]|9|@]|A|$]]|$1|I|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|J|$]]

My usual way of doing this is:

<pre><code>my %unique = ();
foreach my $item (@myarray)
{
 $unique{$item} ++;
}
my @myuniquearray = keys %unique;
</code></pre>

If you use a hash and add the items to the hash. You also have the bonus of knowing how many times each item appears in the list.

blocks|key|1569391|text|可以用一个简单的Perl一行程序来完成。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1569392|my+@in=qw(1+3+4++6+2+4++3+2+6++3+2+3+4+4+3+2+5+5+32+3);+#Sample+data+
my+@out=keys+%25{{+map{$_=>1}@in}};+#+Perform+PFM
print+join+'+',+sort{$a<=>$b}+@out;#+Print+data+back+out+sorted+and+in+order.|code-block|syntax|javascript|1569393|PFM块执行以下操作：|1569394|将@in中的数据输入到map中。map构建了一个匿名散列。从散列中提取keys并馈送到@out中|offset|length|style|CODE|1569395|entityMap^0|0|0|0|1|3|B|3|G|3|Z|4|17|4|0^^$0|@$1|2|3|4|5|6|7|Q|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|R|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|S|8|@]|9|@]|A|$]]|$1|I|3|J|5|6|7|T|8|@$K|U|L|V|M|N]|$K|W|L|X|M|N]|$K|Y|L|Z|M|N]|$K|10|L|11|M|N]|$K|12|L|13|M|N]]|9|@]|A|$]]|$1|O|3|-4|5|6|7|14|8|@]|9|@]|A|$]]]|P|$]]

Can be done with a simple Perl one-liner.
<pre><code>my @in=qw(1 3 4 6 2 4 3 2 6 3 2 3 4 4 3 2 5 5 32 3); #Sample data 
my @out=keys %{{ map{$_=&gt;1}@in}}; # Perform PFM
print join ' ', sort{$a&lt;=&gt;$b} @out;# Print data back out sorted and in order.
</code></pre>
The PFM block does this:
Data in <code>@in</code> is fed into <code>map</code>. <code>map</code> builds an anonymous hash. <code>keys</code> are extracted from the hash and feed into <code>@out</code>

blocks|key|1784502|text|方法1:使用散列|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1784503|逻辑:散列只能有唯一的键，所以迭代数组，将任何值赋给数组的每个元素，保持元素作为散列的键。返回散列的键，它是你唯一的数组。|1784504|my+@unique+=+keys+{map+{$_+=>+1}+@array};|code-block|syntax|javascript|1784505|方法2:方法1的可重用性扩展|1784506|如果我们应该在代码中多次使用此功能，最好是创建子例程。|1784507|sub+get_unique+{
++++my+%25seen;
++++grep+!$seen{$_}%2B%2B,+@_;
}
my+@unique+=+get_unique(@array);|1784508|方法3:使用模块List::MoreUtils|offset|length|style|CODE|1784509|use+List::MoreUtils+qw(uniq);
my+@unique+=+uniq(@array);|1784510|entityMap^0|0|0|0|0|0|0|8|F|0|0^^$0|@$1|2|3|4|5|6|7|Y|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|Z|8|@]|9|@]|A|$]]|$1|D|3|E|5|F|7|10|8|@]|9|@]|A|$G|H]]|$1|I|3|J|5|6|7|11|8|@]|9|@]|A|$]]|$1|K|3|L|5|6|7|12|8|@]|9|@]|A|$]]|$1|M|3|N|5|F|7|13|8|@]|9|@]|A|$G|H]]|$1|O|3|P|5|6|7|14|8|@$Q|15|R|16|S|T]]|9|@]|A|$]]|$1|U|3|V|5|F|7|17|8|@]|9|@]|A|$G|H]]|$1|W|3|-4|5|6|7|18|8|@]|9|@]|A|$]]]|X|$]]

<h1>Method 1: Use a hash</h1>

Logic: A hash can have only unique keys, so iterate over array, assign any value to each element of array, keeping element as key of that hash. Return keys of the hash, its your unique array.

<pre><code>my @unique = keys {map {$_ =&gt; 1} @array};
</code></pre>

<h1>Method 2: Extension of method 1 for reusability</h1>

Better to make a subroutine if we are supposed to use this functionality multiple times in our code.

<pre><code>sub get_unique {
 my %seen;
 grep !$seen{$_}++, @_;
}
my @unique = get_unique(@array);
</code></pre>

<h1>Method 3: Use module <code>List::MoreUtils</code></h1>

<pre><code>use List::MoreUtils qw(uniq);
my @unique = uniq(@array);
</code></pre>

blocks|key|1784236|text|变量@array是包含重复元素的列表|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|1784237|%25seen=();
@unique+=+grep+{+!+$seen{$_}+%2B%2B+}+@array;|code-block|syntax|javascript|1784238|entityMap^0|2|6|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@$9|N|A|O|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|P|8|@]|D|@]|E|$I|J]]|$1|K|3|-4|5|6|7|Q|8|@]|D|@]|E|$]]]|L|$]]

The variable <code>@array</code> is the list with duplicate elements
<pre><code>%seen=();
@unique = grep { ! $seen{$_} ++ } @array;
</code></pre>

blocks|key|1784185|text|最后一个相当不错。我只是稍微调整一下：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1784186|my+@arr;
my+@uniqarr;

foreach+my+$var+(+@arr+){
++if+(+!+grep(+/$var/,+@uniqarr+)+){
+++++push(+@uniqarr,+$var+);
++}
}|code-block|syntax|javascript|1784187|我认为这可能是最具可读性的方式。|1784188|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|L|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|M|8|@]|9|@]|A|$]]|$1|I|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|J|$]]

That last one was pretty good. I'd just tweak it a bit:

<pre><code>my @arr;
my @uniqarr;

foreach my $var ( @arr ){
 if ( ! grep( /$var/, @uniqarr ) ){
 push( @uniqarr, $var );
 }
}
</code></pre>

I think this is probably the most readable way to do it.

blocks|key|1569421|text|尝试一下，uniq函数似乎需要一个排序列表才能正常工作。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1569422|use+strict;

#+Helper+function+to+remove+duplicates+in+a+list.
sub+uniq+{
++my+%25seen;
++grep+!$seen{$_}%2B%2B,+@_;
}

my+@teststrings+=+("one",+"two",+"three",+"one");

my+@filtered+=+uniq+@teststrings;
print+"uniq:+@filtered\n";
my+@sorted+=+sort+@teststrings;
print+"sort:+@sorted\n";
my+@sortedfiltered+=+uniq+sort+@teststrings;
print+"uniq+sort+:+@sortedfiltered\n";|code-block|syntax|javascript|1569423|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

Try this, seems the uniq function needs a sorted list to work properly.

<pre><code>use strict;

# Helper function to remove duplicates in a list.
sub uniq {
 my %seen;
 grep !$seen{$_}++, @_;
}

my @teststrings = ("one", "two", "three", "one");

my @filtered = uniq @teststrings;
print "uniq: @filtered\n";
my @sorted = sort @teststrings;
print "sort: @sorted\n";
my @sortedfiltered = uniq sort @teststrings;
print "uniq sort : @sortedfiltered\n";
</code></pre>

blocks|key|1784418|text|使用唯一散列键的概念：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1784419|my+@array++=+("a","b","c","b","a","d","c","a","d");
my+%25hash+++=+map+{+$_+=>+1+}+@array;
my+@unique+=+keys+%25hash;
print+"@unique","\n";|code-block|syntax|javascript|1784420|输出:a+c+b+d|1784421|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|L|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|M|8|@]|9|@]|A|$]]|$1|I|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|J|$]]

Using concept of unique hash keys :

<pre><code>my @array = ("a","b","c","b","a","d","c","a","d");
my %hash = map { $_ =&gt; 1 } @array;
my @unique = keys %hash;
print "@unique","\n";
</code></pre>

Output:
a c b d

I have an array in Perl:

<pre><code>my @my_array = ("one","two","three","two","three");
</code></pre>

How do I remove the duplicates from the array?

How do I remove duplicate items from an array in Perl?

我在Perl中有一个数组：my @my_array = ("one","two","three","two","three");如何从阵列中删除重复项？

问如何在Perl中删除数组中的重复项？
EN

回答 9

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何在Perl中删除数组中的重复项？EN

回答 9

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何在Perl中删除数组中的重复项？
EN