如何使用Perl做反向grep？

Question

Perl中的grep -v等效于什么？

的代码看起来像这样

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

我想@files有不为空的所有文件名的列表。

Answer 1

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

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

见perldoc grep。