如何使用Perl做反向grep？

Question

Perl中的grep -v等效於什麼？

的代碼看起來像這樣

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

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

Answer 1

可以在表達式或塊使用否定：

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

見perldoc grep。