Как я могу сделать обратный grep с помощью Perl?

Question

Что такое эквивалент grep -v в Perl?

код выглядит следующим образом

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

@files Я хочу, чтобы получить список всех имен файлов, которые не являются пустыми.

Answer 1

Вы можете использовать отрицание в выражении или блока:

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

См perldoc grep.