Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re: specifying file extension in opendir function

by inman (Curate)
on Nov 16, 2006 at 14:19 UTC ( #584467=note: print w/ replies, xml ) Need Help??


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; }

The while loop gets to process the files that match the pattern.


Comment on Re: specifying file extension in opendir function
Select or Download Code
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; }
    doesn't work. Change the while to:
    for (glob $wildcard) {
    and it's fine.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://584467]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (5)
As of 2015-07-06 01:39 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (68 votes), past polls