[tpm] Glob problem

arocker at vex.net arocker at vex.net
Tue Oct 27 10:21:04 PDT 2009

> use File::Slurp ;
A constraint I didn't specify was "use only stuff in the standard
distribution, where possible". My powers don't extend to installing from
CPAN, and the person who can is busy doing other things I need done.

> my ($file_name) = map "$from_dir\\$_", grep /${job_no}XX-.*\.txt/,
> 		read_dir $from_dir ;

Frankly, I don't see that as any great improvement. (I put the regex value
in a variable so I could make changes for testing purposes, without
disturbing the selection code.)

More information about the toronto-pm mailing list