如何使用 Perl 的 File::Copy 复制名称中带有特殊字符的文件？

Question

我正在尝试将一个位置的所有文件复制到另一个位置，并使用 File::Copy 模块和 copy 来自该位置的命令，但现在我面临的问题是我有一个名称为 @987654326 的文件@ 其 ascii 值为 &#253 但在 unix 文件系统中它存储为 ? 所以我的问题是 copy or move command 在复制或移动到另一个位置时是否会考虑这些带有特殊字符的文件， 如果现在，那么可能的解决方法是什么？

注意： 我无法在 unix 中创建带有特殊字符的文件，因为特殊字符被替换为 ?，而在 Windows 中我不能这样做，因为在 Windows 上，特殊字符被替换为编码值，如我的&#253 案例？

my $folderpath = 'the_path';
open my $IN, '<', 'path/to/infile';
my $total;
while (<$IN>) {
    chomp;
    my $size = -s "$folderpath/$_";
    print "$_ => $size\n";
    $total += $size;
}
print "Total => $total\n";

礼貌：RickFAnswer

任何建议将不胜感激。

参考问题：Perl File Handling Question

Answer 1

作为解决方法，我可以建议将所有不受支持的字符转换为受支持的字符。这可以通过多种方式完成。例如你可以使用URI::Escape:

use URI::Escape;
my $new_file_name = uri_escape($weird_file_name);

更新：

这是我如何通过 uft-8 名称复制文件的方法。我在 Windows 上。我使用Win32::GetANSIPathName 来获取短文件名。然后它被很好地复制了：

use File::Copy;
use URI::Escape;
use Win32;

use utf8; ## tell perl that source code is in utf-9
use strict;
use warnings;

my $test_file = "IBMýSoftware.txt";
my $from_file = Win32::GetANSIPathName($test_file); ## get "short" name of file
my $to_file   = uri_escape($test_file); ## name with special characters escaped

printf("copy [%s] -> [%s]\n", $from_file, $to_file);
copy($from_file, $to_file);

在 Windows 上将所有文件复制为新名称后，您将能够在 linux 上毫无问题地使用它们。

以下是一些关于打开 utf-8 文件的提示：

• How do I create a Unicode directory on Windows using Perl?
• With a utf8-encoded Perl script, can it open a filename encoded as GB2312?

Answer 2

字符 253 是ý。我猜想在你的 Unix 系统上 locale 没有设置，或者只有最原始的后备语言环境有效，这就是你看到替换字符的原因。如果我猜对了，解决方案是简单地设置语言环境，最好设置为 UTF-8 语言环境，因为它可以处理所有字符，而 Perl 甚至不应该出现问题。

> cat 3761218.pl
use utf8;
use strict;
use warnings FATAL => 'all';
use autodie qw(:all);

my $file_name = '63551_106640_63551 IBMýSoftware Delivery&Fulfillment(Div-61) Data IPS 08-20-2010 v3.xlsm';
open my $h, '>', $file_name;

> perl 3761218.pl
> ls 6*
63551_106640_63551 IBMýSoftware Delivery&Fulfillment(Div-61) Data IPS 08-20-2010 v3.xlsm
> LANG=C ls 6* # temporarily cripple locale so that the problem in the question is exhibited
63551_106640_63551 IBM??Software Delivery&Fulfillment(Div-61) Data IPS 08-20-2010 v3.xlsm
> locale | head -1 # show which locale I have set
LANG=de_DE.UTF-8

Answer 3

以下脚本按预期工作：

#!/usr/bin/perl

use strict; use warnings;
use autodie;

use File::Copy qw( copy );
use File::Spec::Functions qw( catfile );

my $fname = chr 0xfd;

open my $out, '>', catfile($ENV{TEMP}, $fname);
close $out;

copy catfile($ENV{TEMP}, $fname) => catfile($ENV{HOME}, $fname);