in reply to specifying file extension in opendir function

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.

Replies are listed 'Best First'.
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]

In Section Seekers of Perl Wisdom