如何在 Perl 中缩短 [ qw( ... ) ] 结构?

n.r*_*.r. 3 arrays perl list anonymous-types

Perl 的类引号运算符从裸字qw()创建单词列表,而方括号 []可用于创建对匿名数组的引用。现在,我想知道 Perl 是否提供了一种以某种方式缩写的方法:

my $aref = [qw( a b c )];
Run Code Online (Sandbox Code Playgroud)

使用类似不存在的 qa()运算符之类的东西:

my $aref = qa( a b c );
Run Code Online (Sandbox Code Playgroud)

我最近经常将qw()和一起使用,我想要的只是减少混乱。[]

注意:这不是我要找的:

my @a = \( qw( a b c ) );
Run Code Online (Sandbox Code Playgroud)

Dia*_*ius 7

不是核心 Perl,但请查看Syntax::Feature::Qwa