如何从数组中删除所有的undefs？

Question

从Perl中的配置文件读取时，可能会出现某行无效并且无需将其添加到有效行数组中的情况。由于我在这里使用了for循环，所以即使是无效的行也会创建一个undef条目。我怎样才能删除所有他们之后？

谢谢！

Answer 1

@array = grep defined, @array;