Perl：如何将 undef 返回到列表中？

Question

我在 Perl 中有一个小问题。基本上，我会这样做：

sub myFunction
{
    return (&myOtherFnA(),&myOtherFnB(),&myOtherFnC());
}
sub myOtherFnA() {return 'A';}
sub myOtherFnB() {return undef;}
sub myOtherFnC() {return 'C';}

我的问题是：当 myOtherFnB() 返回 undef 时，我想要一个将 undef 作为第二个元素的列表。但是当 myOtherFnB() 这样做时，我只得到一个包含 2 个元素的列表，即 myOtherFnA() 和 myOtherFnC() 的列表。我明白了：

('A','C')

但我想得到：

('A', undef, 'C')

如果 myOtherFnB() 是 undef 并且实际上只是将 undef 的一个元素放入列表中，我需要使用什么语法来阻止 Perl 从列表中删除返回的 myOtherFnB()？

Answer 1

我不知道是什么让您认为您没有在列表中获得undef。但是，您的代码存在许多问题

• 在定义子例程时不要使用 & 符号 & — 这是语法错误

• 在调用子例程时不要使用 & 符号。自 20 多年前的 Perl 4 以来，这一直没有必要

• 不要使用原型（定义中子例程名称后面的括号），因为它们不会按照您的想法做，而且它们是用于非常专业的东西

• 不要在本地标识符中使用大写字母：它们是为包名等全局标识符保留的

此代码重写修复了语法错误并纠正了上述问题。如您所见，返回列表的第二个元素是undef

use strict;
use warnings;

sub my_function {
  return (
    my_other_function_a(),
    my_other_function_b(),
    my_other_function_c()
  );
}

sub my_other_function_a {
  return 'A';
}

sub my_other_function_b {
  return undef;
}

sub my_other_function_c {
  return 'C';
}


use Data::Dump;
dd [ my_function ];

输出

["A", undef, "C"]