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.
On some versions of Perl the glob operator uses the shell (csh AFAIK) to
glob the file list. If you use opendir/readdir/closedir it should work.
my $dir = 'input';
opendir DIR, $dir or die "Cannot open $dir: $!";
my @filelist = map "$dir/$_", grep /^switch1.*\.evt$/, readdir DIR;
closedir DIR;
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
