How can I do reverse grep using Perl?

Question

What is equivalent grep -vin Perl?

The code looks like this:

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

I want to @fileshave a list of all file names that are not empty.

Answer 1

You can use negation in an expression or block:

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

See perldoc grep .