print "empty" if !@NotFound;
[download]

I like code that reads well. I was going to say print "empty" if not @NotFound but realized it's finally a good reason to use the unless keyword.

print "empty" unless @NotFound;
[download]

--
[ e d @ h a l l e y . c c ]

#!/usr/bin/perl -w
use strict;

my @array = qw( Bob Carol Mike Katie );

if( @array ) {
  print "\@array is not empty!\n";
}

else {
  print "\@array is empty!\n";
}
[download]

#!/usr/bin/perl -w
use strict;

my @array = qw( Bob Carol Mike Katie );

# Delete the contents of the array.
@array = ();

if( @array ) {
  print "\@array is not empty!\n";
}

else {
  print "\@array is empty!\n";
}
[download]

DigitalKitty,
While this is on the money, it might be useful to indicate why an empty array is false and a non-empty array is true. The "What is Truth" tutorial has some good information.

An array in this context will return the number of elements in the array. For purposes of truth, anything that equates to a non-zero value or an empty string is considered true. Even if the array had one element that was undef - it would be true. I think it really depends on what the OP meant by empty. I have seen a lot of people new to Perl think that because there are only undef elements, it is empty. While this is not true (pun intended), an alternative solution needs to be provided for this possibility of misunderstanding. This could be solved with this monstrosity:

(grep defined, @array) ? print "It has at least one non-undefined elem
+ent\n" : print "It is effectively empty\n";
[download]

Cheers - L~R

Cheers,

Brent
-- Yeah, I'm a Delt.