Wow you guys are painful. Why all this grepping and loading an entire directory when all we need to do is something like: 
sub AreThereFiles {
    opendir DIR, "/path/to/nowhere" or die "That will linger: $!\n";
    while ( $foo = readir DIR ) {
    chomp $foo;
        next if ( $foo =~ s/^\.\.?$/ );
        closedir DIR;
        return 1;
    }
    closedir DIR;
    return 0;
}

[download]
By the very act of reading something other than . or .., we imply the existence of files in that directory. If there are no files, we fall through the loop and return 0.

This method will be a little slower than slurping it all into an array. But, if your directories look like some of my user's it may not actually be all that slower and the memory savings will be worth it.

Yes, the closedir calls are likely redundant but I have been bitten a few too many times while recursing directories and I tend to include them from sheer paranoia.

Mik
Mik Firestone ( perlus bigotus maximus )

In reply to RE: Empty directory by mikfire
in thread Empty directory by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.