comment on

so why is perl wasting so many compute cycles getting that information?

If the docs don't explain, Use The Source Luke

http://perl5.git.perl.org/perl.git/tree/HEAD:/ext/File-Glob

http://perl5.git.perl.org/perl.git/blob/HEAD:/ext/File-Glob/bsd_glob.c#l650

/*
 651  * The functions glob2 and glob3 are mutually recursive; there is
+ one level
 652  * of recursion for each segment in the pattern that contains one
+ or more
 653  * meta characters.
 654  */
[download]

http://perl5.git.perl.org/perl.git/blob/HEAD:/ext/File-Glob/bsd_glob.c#l670

So in "$path/d[0-9]*/d[0-9]*" it needs to determine if d[0-9]* is a directory, so it needs to call stat

Could parts of bsd_glob.c be optimized? Maybe

These days I usually use File::Find::Rule, but this glob converted is not as elegant

use File::Find::Rule;
my @dirs = find( 'dir', 'name', qr/^d\d/i, 'maxdepth', 1, 'in', $path 
+);
my @files = find( 'file', 'name', qr/^d\d/i, 'maxdepth', 1, 'in', \@di
+rs );
[download]

In reply to Re: Glob and lstat by Anonymous Monk
in thread Glob and lstat by JediWizard

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


Keep It Simple, Stupid
	PerlMonks