Re: How to expand wildcard arguments supplied to programs with perl on windows?

[atcroft]

in reply to How to expand wildcard arguments supplied to programs with perl on windows?

I don't know about the Wild.pm module you were using, but I was able to get results similar to what you indicated you expected with the following code:

use strict;
use warnings;

foreach my $pattern (@ARGV) {
    foreach (glob($pattern)) {
        print qq{$_\n};
    }
}

This was called from a Windows Command Prompt using Strawberry Perl as follows: perl test.pl *.txt I used a loop for @ARGV to allow for multiple patterns to be specified on the command line, to give a little extra flexibility.

Hope that helps.

[andalou]

Thanks, but it doesn't work if a file has Chinese characters in its
filename, as in song自然之歌.txt

[Corion]

The Perl file system calls and Unicode don't mix particularly well on file systems that don't encode their filenames as UTF-8. See for example Check if unicode directory exists.

[Anonymous Monk]

See also Re^5: Is File::Find Unicode-(Conformant|Compliant|Enabled|Capable)?