perl - 如何使用 Perl 执行反向 grep？

Question

相当于grep -v在 Perl 中？

代码看起来像这样

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

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

Answer 1

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

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

见 perldoc grep .