Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Re: Is there a better way.

by Roy Johnson (Monsignor)
on Feb 23, 2009 at 22:42 UTC ( #745850=note: print w/replies, xml ) Need Help??


in reply to Is there a better way.

@uploads = grep /$pattern/, @files;
?

Caution: Contents may have been coded under pressure.

Replies are listed 'Best First'.
Re^2: Is there a better way.
by Anonymous Monk on Feb 23, 2009 at 22:49 UTC
    Thanks I will give that a try.
Re^2: Is there a better way.
by afresh1 (Hermit) on Feb 25, 2009 at 21:34 UTC

    The way I normally do this is similar, but skips using the temporary @files array.

    opendir my $dh, $dir or die "Unable to opendir [$dir]: $!"; my @uploads = grep /$pattern/, readdir ($dh); closedir $dh;

    Sometimes I will add a map { "$dir/$_" } between = and grep, but it depends on the use.

    l8rZ,
    --
    andrew

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://745850]
help
Chatterbox?
[Eily]: It can also be used to force a copy, and remove magic from a variable
[Eily]: there was a post some time ago about variable coming from regex taking more space than the same string defined directly IIRC
[Eily]: and if there's XS, make sure the scalar holds a string representation, that sounds like bad practice though (forcing that on the call side)
[choroba]: You should never pass $1 without double quotes to a sub
[choroba]: or "I should never", at least
[choroba]: that's not the sub's business

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (8)
As of 2018-02-22 17:16 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    When it is dark outside I am happiest to see ...














    Results (296 votes). Check out past polls.

    Notices?