从地图中检索哈希键

Question

有一些带有单词的字符串,用空格分隔.我需要在每个单词中获得一个带有特定子串的单词数组,这些单词应该是唯一的.它可以这样做:

%arr = map { $_ => 1 } grep /foo/, $str=~/\b(\w+)\b/g;
@arr = keys %arr;

但这是单线,我试图做到简洁:

@arr = keys map { $_ => 1 } grep /foo/, $str=~/\b(\w+)\b/g;

但是我得到了错误(在Perl 5.24.1中):

现在禁止使用标量上的实验键

不幸的是,1和2帖子没有帮助我理解应该如何正确完成.

Answer 1

你忘了实际创建一个哈希!

my @arr = keys %{ +{ map { $_ => 1 } grep /foo/, $str =~ /\b(\w+)\b/g } };

但是有一种更好的方法可以摆脱重复.

my %seen;
my @arr = grep !$seen{$_}++, grep /foo/, $str =~ /\b(\w+)\b/g;

要么

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

my @arr = uniq grep /foo/, $str =~ /\b(\w+)\b/g;

要么

use List::Util qw( uniq );

my @arr = uniq grep /foo/, $str =~ /\b(\w+)\b/g;

顺便说说,

grep /foo/, $str =~ /\b(\w+)\b/g

可以简化为

$str =~ /\b\w*foo\w*+/g