如何使用Perl进行反向grep？

Question

Perl中grep -v的等价物是什么？

代码看起来像这样

@files = reversegrep(/^[ ]+$/, @files);

我希望@files有一个非空的所有文件名列表。

Answer 1

您可以在表达式或块中使用否定：

@files = grep !/^\s+$/, @files;

请参阅perldoc grep。