Rafaqat Ali Chaudhary wrote:
> Got another problem:
>
> Following line of code fails if directory contains more than 1400
> or so files:
>
> 1. my @filelist = glob("input/switch1*.evt");
>
> Any help will be highly appreciated.
>
The following code will do the same thing.
use strict;
use warnings;
use File::Find;
my @filelist;
find( {
preprocess => sub { grep -f, @_ },
wanted => sub { push @filelist, $File::Find::name if /^switch1.*\.evt$/i },
}, 'input');
HTH,
Rob
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
