specifying file extension in opendir function

greatshots has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: specifying file extension in opendir function by themage (Friar) on Nov 16, 2006 at 11:21 UTC
Hi greatshots, `opendir` doesn't allow wildcards, as it is not designed to list filenames, but to open a special file, that is a directory. In the perldoc for opendir (`perldoc -f opendir`) you have an small example filtering filenames from an opendir and readdir, using grep. You can do something similar: `opendir(DIR, $some_dir) \|\| die "can't opendir $some_dir: $!"; + @tdefs = grep { /\.tdef$/ && -f "$some_dir/$_" } readdir(DIR); closedir DIR;` [download] TheMage http://themage.bliker.com	[reply] [d/l] [select]
Re^2: specifying file extension in opendir function by greatshots (Pilgrim) on Nov 16, 2006 at 11:28 UTC
thanks a lot themage. most of the time I am using the solution which you have given to acheive my requirement. thanks a lot for spending your valuable time for reading my node and replied for that.	[reply]
Re^2: specifying file extension in opendir function by Anonymous Monk on Nov 16, 2010 at 22:03 UTC
$some_dir I don't know what $some_dir has to be written, newbie says. :(	[reply]
Re: specifying file extension in opendir function by bart (Canon) on Nov 16, 2006 at 11:36 UTC
No you can't use wildcards in the directory name, but you can use glob to get all matching directory names. Something like this: `foreach my $dir (grep -d, glob "/apps/inst2/metrica/ON-SITE/backup/sch +ema/*.tdef") { print "Opening directory $dir\n"; opendir(OLD, $dir) or die "Can't open directory $dir: $!"; while(my $file = readdir OLD) { next if $file eq '.' or $file eq '..'; print " File: $file\n" if -f $file; print " Dir: $file\n" if -d $file; print " Link: $file\n" if -l $file; } closedir OLD; }` [download]	[reply] [d/l]
Re: specifying file extension in opendir function by inman (Curate) on Nov 16, 2006 at 14:19 UTC
Try the following use of a while loop if it fits in with your application logic. It is a neat short cut that may work for your app. The `<pattern>` construct uses the glob function internally. Details on the patterns that you can use in File::Glob `while (</apps/inst2/metrica/ON-SITE/backup/schema/*.tdef>){ print; }` [download] The while loop gets to process the files that match the pattern.	[reply] [d/l] [select]
Re^2: specifying file extension in opendir function by Tanktalus (Canon) on Nov 16, 2006 at 16:18 UTC
Please, PLEASE ... just use glob. /me really wishes perl didn't have the `<>` construct doing such drastically different things because parsing it right is hard, e.g. `my $wildcard = File::Spec->catfile(File::Spec->rootdir(), qw(apps inst2 metrica), $some_location, qw(backup schema), '*.tdef' ); while (<$wildcard>) { print; }` [download] doesn't work. Change the while to: `for (glob $wildcard) {` [download] and it's fine.	[reply] [d/l] [select]