如何使用Perl进行反向grep？

Question

grep -vPerl中的等价物是什么？

代码看起来像这样

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

我想要@files一个非空的所有文件名列表.

Answer 1

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

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

见perldoc grep.