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

Question

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

код выглядит так

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

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

Answer 1

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

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

См. perldoc grep .