$b = "/opt/*";
@a = < $b >;
[download]

See also: File::Glob

I had been trying that like this:

my @files;

open (CFG,"<$ENV{HOME}/bin/$configFile") or die "Cannot Open Config Fi
+le: $!\n";
while (<CFG>){
    chomp;
    s/ \d+$//;
    @files = < $_ >;
}

close(CFG);
print join ("\n", @files);
[download]

But I get "glob failed (child exited with status 1) at ./old_file_scrub line XX". If I trim the entry in the config file to the point that there is only 1 "*" in it, it works fine, but not with both.

You'll need to split the path at each wildcard, expand each level, concatenate the next piece to each result, and so forth. That's not particularly fun, but hey, you'll be learning!

Also, this is a 5.005 box, File::Glob is not on it.

perldoc -f glob for starters.

It'll just do what you think it should.

e.g.

globfoo
=======

#!/usr/bin/perl -w

my @files = glob("foo*/ba*/");
print join "\n", @files, "\n";

mothra@penderel:~/src/Perl$ ls -d foo*/ba*/
foo1/bar1/  foo1/bar2/  foo1/bar3/  foo2/baz2/  foo2/baz3/

mothra@penderel:~/src/Perl$ ./globfoo
foo1/bar1/
foo1/bar2/
foo1/bar3/
foo2/baz2/
foo2/baz3/
[download]

etc.

It's probably a bad idea to roll your own logfile implementation (i.e. you could be learning lots of *other* things besides trying to make a wheel more round), but alas, to each their own.

There is perl's glob, or else there is File::Find.

With glob,

open CONF, '/path/to/.config' or die $!;
while (<CONF>) {
    my ($fglub, %mto) = split;
    for (glob $fglub) {
        -M < $mto and next;
        # do stuff to an out of date file
    }
}
close CONF or die $!;
[download]

After Compline,
Zaxo