Re: Recursive file search

[Miguel]

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