confused with File::Glob

[Harry Putnam]

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]