perl - 子程序返回值(作为数组)可以用在 Perl 的散列声明中吗？

Question

已经有一段时间了，很抱歉我生疏的问题...

给定当前(工作)代码:

my @keywords = ( 'foo', 'bar', 'kan', 'moo', 'ban', 'noob' );    
my @good = grep { /oo/ } @keywords;
my @bad = grep { !/oo/ } @keywords;

my %data = (
  keywords => \@keywords,
  good => \@good,
  bad => \@bad
);

print Dumper(\%data);

声明只是临时变量，以确保散列以数组引用结尾。有没有办法将上面的合并为简单地使用散列声明中的方法？

我正在尝试得出类似于以下内容(非工作代码):

my @keywords = ( 'foo', 'bar', 'kan', 'moo', 'ban', 'noob' );    

my %data = (
  keywords => \@keywords,
  good => grep { /oo/ } @keywords,
  bad => grep { !/oo/ } @keywords
);

print Dumper(\%data);

Answer 1

是的，只需使用一个匿名数组引用:

my %data = (
  keywords => [@keywords],
  good => [grep { /oo/ } @keywords],
  bad => [grep { !/oo/ } @keywords],
);

print Dumper(\%data);