home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl560.zip / win32 / bin / perlglob.pl < prev    next >
Perl Script  |  1999-11-30  |  1KB  |  54 lines

  1. #!perl -w
  2. use File::DosGlob;
  3. $| = 1;
  4. while (@ARGV) {
  5.     my $arg = shift;
  6.     my @m = File::DosGlob::doglob(1,$arg);
  7.     print (@m ? join("\0", sort @m) : $arg);
  8.     print "\0" if @ARGV;
  9. }
  10. __END__
  11.  
  12. =head1 NAME
  13.  
  14. perlglob.bat - a more capable perlglob.exe replacement
  15.  
  16. =head1 SYNOPSIS
  17.  
  18.     @perlfiles = glob  "..\\pe?l/*.p?";
  19.     print <..\\pe?l/*.p?>;
  20.  
  21.     # more efficient version
  22.     > perl -MFile::DosGlob=glob -e "print <../pe?l/*.p?>"
  23.  
  24. =head1 DESCRIPTION
  25.  
  26. This file is a portable replacement for perlglob.exe.  It
  27. is largely compatible with perlglob.exe (the Microsoft setargv.obj
  28. version) in all but one respect--it understands wildcards in
  29. directory components.
  30.  
  31. It prints null-separated filenames to standard output.
  32.  
  33. For details of the globbing features implemented, see
  34. L<File::DosGlob>.
  35.  
  36. While one may replace perlglob.exe with this, usage by overriding
  37. CORE::glob with File::DosGlob::glob should be much more efficient,
  38. because it avoids launching a separate process, and is therefore
  39. strongly recommended.  See L<perlsub> for details of overriding
  40. builtins.
  41.  
  42. =head1 AUTHOR
  43.  
  44. Gurusamy Sarathy <gsar@activestate.com>
  45.  
  46. =head1 SEE ALSO
  47.  
  48. perl
  49.  
  50. File::DosGlob
  51.  
  52. =cut
  53.  
  54.