什麼是從字符串創建唯一數組值的最佳方式？

Question

在Perl中是否有一個很好的一行，可以讓你從一個字符串創建一個唯一值的數組？

$str = "bob-2-4 asdfasdfasdf bob-2-4 asdfasdf bob-3-1"; 
my @unique = $str =~ m/(bob-\d-\d)/g; 
# array is now "bob-2-4, bob-2-4, bob-3-1" 

但是我希望唯一的數組只包含「bob-2-4，bob-3-1」。

Answer 1

如果你在談論唯一身份證，那麼這項工作的工具就是一個散列。

你可以這樣做：

#!/usr/bin/env perl 
use strict; 
use warnings; 

my $str = "bob-2-4 asdfasdfasdf bob-2-4 asdfasdf bob-3-1"; 
my %unique = map { $_ => 1 } $str =~ m/(bob-\d-\d)/g; 
print keys %unique; 

作爲一個襯墊，直入你的數組，你可以：

my @unique = keys %{{map { $_ => 1 } $str =~ m/(bob-\d-\d)/g}}; 

這大約做同樣的事情 - 用map構建亂碼，然後keys來提取唯一值。注 - keys不返回已定義的訂單。

如果排序是非常重要的，你也可以使用grep，但你仍然需要一個散列：

my $str = "bob-2-4 asdfasdfasdf bob-2-4 asdfasdf bob-3-1"; 
my %seen; 
my @unique = grep { not $seen{$_}++ } $str =~ m/(bob-\d-\d)/g; 
print @unique; 

Answer 2

不含模塊：

sub uniq { my %seen; grep !$seen{$_}++, @_ } 

憑藉常用模塊：

use List::MoreUtils qw(uniq); 

用法：

my $str = "bob-2-4 asdfasdfasdf bob-2-4 asdfasdf bob-3-1"; 
my @unique = uniq $str =~ m/(bob-\d-\d)/g; 
say for @unique;