http://qs321.pair.com?node_id=745850


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.
[reply]
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;

    [download]

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

    l8rZ,
    --
    andrew
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom