Use Win32::LongPath's copyL instead.

The file names passed to copy need to be strings of bytes. In unix, you'd encode the text to use as the name using the system's locale. In Windows, you'd encode it using the encoding returned by "cp".Win32::GetACP().

The reason for this is that File::Copy's copy uses Win32's Win32::CopyFile, which exposes the CopyFileA system call. The "(A)NSI" system calls use the system's Active Code Page. The exception to this is when the program's manifest makes the programs Active Code Page 65001, UTF-8. I keep meaning to try this to change perl's Active Code Page to UTF-8. You'd still have to encode the file name, but with UTF-8 (or cp65001, the alias returned by the earlier snippet after this change).

On an English machine, the encoding is probably cp1252. Fortunately, the file name in question can be encoded using Windows-1252. If you wanted to support file names that can't be encoded using your system's ACP, you'd have to change the program's ACP as mentioned above, or you'd have to use CopyFileW, the "(W)ide" or "Unicode" version of the system call, which takes UTF-16le strings. Win32::LongPath's copyL exposes this call. (It also munges the paths to allow longer paths, but this is transparent.) It it wasn't already exposed, you could have used a module like FFI::Platypus or Win32::API to access it, or you could have written your own XS module.

This is one of the things that should have been changed and long forgotten about two decades ago. There is no sane reason for File::Copy to use the ACP and there hadn't been for ages.

Jenda
1984 was supposed to be a warning,
not a manual!

thank you!!

• Create a temp 'oldfile' in current directory.
• Copy it to a 'newfile'
• Delete the 'oldfile'.
• Search the directory for 'newfile'
• Verify that the 'newfile' name is recovered

use strict;
use warnings;
use autodie;
use File::Copy;
use utf8;
use Encode qw(encode decode);
use Test::More tests=>1;
use File::Temp;
use Win32;
my $cp = "cp".Win32::GetACP();  # Update

my $oldname = tmpnam();
open my $make, '>', $oldname;
print $make "Any old thing\n";
close $make;

#my $newname = encode('cp1252', "Hildur_Guðnadóttir.txt");
my $newname = encode($cp, "Hildur_Guðnadóttir.txt");
copy($oldname, $newname);
unlink $oldname;

opendir my $dh, '.';
my $readbackname;
while (1) {
    $readbackname = readdir $dh;
    die "File not found\n" if !defined($readbackname);
    last if $readbackname =~ m/^Hildur_Gu.nad.+ttir\.+txt/;
}
#$readbackname = decode('cp1252', $readbackname);
$readbackname = decode($cp, $readbackname);

is($readbackname, $newname, 'round trip');
[download]

UPDATE: Corrected code per ikegami's comment Re^2: Wide characters in Windows filenames with File::Copy below.

Not all systems use Windows-1252 as their ACP. You should be using "cp".Win32::GetACP() (and use Win32;) instead of "cp1252".

thank you Bill!