arrays - 为什么我似乎无法从 Perl 数组中删除未定义的元素？

Question

我有一个来自哈希表中数据的字符串数组。我试图删除任何(显然)空的元素，但由于某种原因，似乎有一个顽固的元素拒绝删除。

我正在做:

# Get list array from hash first, then
@list = grep { $_ ne ' ' } @list; 
@list = uniq @list;
return sort @list;

在 grep 行，我收到 Use of uninitialized value in string ne... 消息，下面正确打印了数组的其余部分。

我尝试过“漫长”的方式:

foreach (@list) {
    if ($_ ne ' ') {
        push @new_list, $_;
    }
}

但这会产生完全相同的结果。我尝试使用 define 获得预期结果(什么也没有)。

我可以预先对数组进行排序并删除第一个元素，但这似乎非常危险，因为我无法保证数据集始终包含空白元素。诉诸正则表达式似乎也有些过分，但也许我是错的。像往常一样，我确信我错过了一些非常简单的事情。

Answer 1

元素不能为空。您正在尝试删除未定义元素。但是您不是在检查该元素是否未定义，而是在检查它是否由包含单个空格的字符串组成。你想要:

@list = grep defined, @list;