逻辑定义或中的Perl数组

Question

如果给定数组未定义，我试图分配一个空数组，否则分配该给定数组。 但是，看起来perl数组是在标量上下文中以逻辑define-or执行的。

例：

@h = 1 .. 5;
@a = @h // ();
@b = defined @h ? @h : ();

print @a; #5  
print @b; #12345

有没有解决方法，所以我可以按照类似代码第二行的方式进行操作？

Answer 1

只有标量值可以是undef ，测试数组的定义性毫无意义。 如果要在@h非空的情况下将@a设置为@h ，否则将其设置为空列表，则可以只写@a = @h 。