How can I handle wildcards on the command line using Perl on Windows?

Question

I though this would be simple, but apparently I can't do:

script.pl *.ext

in the WinXP command processor.

Is there a built-in solution? (i.e. not a CPAN module?)

score 5 · Accepted Answer · answered Jul 14 '09 at 14:50

5

#!/usr/bin/perl

use strict;
use warnings;

use File::DosGlob qw( glob );
print map { "$_\n"} map { glob } @ARGV;
__END__

    C:\Temp> tgh *.pl
    ...
    tgh.pl
    tgm.pl
    thg.pl
    thk.pl
    tjl.pl
    tjm.pl
    tkj.pl
    tkl.pl

answered Jul 14 '09 at 14:50

Sinan Ünür

1

FWIW, File::Glob and built-in glob function are synonymous since Perl 5.6. – spoulson Jul 14 '09 at 14:53
I meant File::DosGlob ... sorry. – Sinan Ünür Jul 14 '09 at 14:54

score 4 · Answer 2 · answered Jul 14 '09 at 14:48

4

Use the glob function.

...returns a (possibly empty) list of filename expansions on the value of EXPR such as the standard Unix shell /bin/csh would do...

answered Jul 14 '09 at 14:48

spoulson

3

But *only* use it on Windows. If you use it on Unix, you risk globbing real file names; asterisks and question marks are valid characters in Unix file names. – Rob Kennedy Jul 14 '09 at 14:54

2 Answers2