Re: glob and regex

Just look in the directory and apply grep e.g

opendir(my $dir, 'your_directory_here') or die("ack: $!");

my @files = grep /[A-Za-z]{2}_\w{2,5}/, readdir $dir;

closedir $dir;
[download]

See. opendir and readdir for more info.

HTH

_________ broquaint

Comment on Re: glob and regex Download Code

Replies are listed 'Best First'.
Re: Re: glob and regex by hardburn (Abbot) on Oct 09, 2003 at 14:50 UTC
The `grep` should probably check if it's a file, not a directory: `my @files = grep { -f && /[A-Za-z]{2}_\w{2,5}/ }, readdir $dir;` [download] ---- I wanted to explore how Perl's closures can be manipulated, and ended up creating an object system by accident. -- Schemer Note: All code is untested, unless otherwise stated	[reply] [d/l] [select]