Apparently I'm not getting what it is that File::Glob is supposed to
do:
ls tmp/file_[0-9]*|wc -l
99
All 99 look like
tmp/file_NUM with incrementing number.
Why doesn't this code unwind the list of files?
when this command is given:
./testglob.pl 'tmp/file_[0-9]*'
cat ./testglob.pl
#!/usr/local/bin/perl -w
use File::Glob ':glob';
## Examles from perldoc File::Glob
# @list = bsd_glob('*.[ch]');
# $homedir = bsd_glob('~gnat', GLOB_TILDE | GLOB_ERR);
# if (GLOB_ERROR) {
# # an error occurred reading $homedir
# }
$glob_pattern = shift;
@files = bsd_glob("$glob_pattern",GLOB_ERR)|| die "Yikes: $!";
for(@files){
print "$_\n";
}
Results:
./testglob.pl 'tmp/file_[0-9]*'
tmp/file_99
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
