在 Perl 的数组数组中删除 undef

Question

我正在尝试从具有 undef 值的数组中删除元素。

我希望输出是：

@list = [
      [
        2,
        ""
      ],
      [
        4,
        ""
      ],
      [
        6,
        ""
      ],
      [
        8,
        ""
      ],
      [
        10,
        ""
      ],
    ];

这就是我一直试图从数组中删除 undef 的内容。我正在从数组中提取定义的元素，但它不起作用

use Data::Dumper;

my @list = [
  [
    undef,
    ""
  ],
  [
    2,
    ""
  ],
  [
    4,
    ""
  ],
  [
    6,
    ""
  ],
  [
    8,
    ""
  ],
  [
    10,
    ""
  ],
];

@list = grep defined, @list;

print Dumper(\@list);

有人可以帮忙吗？

提前致谢

Answer 1

人们经常在 Perl 中混淆列表和数组。所以调用数组变量@list 是一个非常糟糕的主意:-)

正如我在评论中提到的，您似乎对如何在 Perl 中填充数组感到困惑。您可以使用列表填充它：

my @array = ( ... ); # Lists use parentheses

或者您创建一个 匿名 数组并将对该数组的引用存储在标量变量中：

my $array_ref = [ ... ]; # Anon array uses square brackets

接下来，您的数组不包含 undef 元素。数组中的每个元素都是对二元素数组的引用。在其中一个二级数​​组中，第一个元素是undef。使用grep 过滤数组是对的，但是你需要查看二级数组来做你想做的事情。

所以代码看起来像这样：

my @array = ( ... );

@array = grep { defined $_->[0] } @array;

请注意，我已切换到 grep 的块语法。这是最常用的版本，最好使用该语法。