如何在perl中明确表示一个元素的文字列表?

pii*_*_ke 5 perl

我需要一个函数来返回一个列表,该列表作为唯一的输入列表使用map BLOCK LIST.我写的return (6);是因为我想返回一个包含一个元素的列表,但这看起来与 括在括号中的标量相同.它会以我想要的方式解释吗?我需要使用丑陋的东西:return @{[6]};强制执行我的意图吗?

Kev*_*eid 6

这里没有歧义,你无法无条件地返回一个列表.

在Perl 5中,每个表达式(包括子例程调用)都有一个上下文,它是列表上下文(返回零或更多值)或标量上下文(只返回一个值).一个return声明传播子程序调用中表达的情况下return发言.假设您正在尝试返回包含多个元素的列表:

return (6, 7, 8);
Run Code Online (Sandbox Code Playgroud)

不能保证是一个列表.如果在标量上下文中调用sub,则语句中的逗号表达式也在return标量上下文中,并且标量上下文中逗号表达式的行为是返回最右边的值8.

如果您改为使用临时数组,

return @{[6, 7, 8]}
Run Code Online (Sandbox Code Playgroud)

然后,如果在标量上下文中调用它,您将在标量上下文中获得数组的行为,这将返回数组中元素的数量.

以上所有内容都适用于单元素列表,与示例中的三元素列表一样多.

一些一般事实:

  • 无法强行返回列表 - 您只能返回调用者要求的内容.

  • 如果在标量上下文中调用list-y,则没有系统的选择 - 列表中将在列表上下文中返回的元素数量是一种常见的选择,但不是通用的.

  • 如果你想拥有一个明确指定的子程序,你不能说"它总是返回一个列表"; 你必须指定当需要返回标量时会发生什么.(如果你愿意的话,你可以决定它总是die如此.)

  • 如果要根据调用是在标量还是列表上下文中进行显式选择,可以使用命名不佳的内置函数wantarray,如果在列表上下文中调用子例程,则返回true.

这是你所要求的最接近实际存在的东西.请注意,没有括号 - 括号不会影响上下文.

die "can't be scalar" unless wantarray;
return 6;
Run Code Online (Sandbox Code Playgroud)