in reply to Recursive file search
Another alternative:
#!/usr/bin/perl -w use strict; use IO::All; my @files; for ( io('.')->All ) { push @files, $_ if $_ =~/.*\.xml$/i; }
I spent 22 seconds to read 33721 files/directories on a PIV 1.7 with 256Mb RAM
|
---|
In Section
Seekers of Perl Wisdom