5

我正在编写一个脚本来批量重命名和复制基于 csv 文件的图像。csv 由第 1 列：旧名称和第 2 列：新名称组成。我想使用 csv 文件作为 perl 脚本的输入，以便它检查旧名称并使用新名称将副本复制到新文件夹中。（我认为）我遇到的问题与图像有关。它们包含 utf8 字符，如 ß 等。当我运行脚本时，它会打印出以下内容： Barfu├ƒg├ñsschen 应该是 Barfußgässchen 和以下错误：

Unsuccessful stat on filename containing newline at C:/Perl64/lib/File/Copy.pm line 148, <$INFILE> line 1.
Copy failed: No such file or directory at X:\Script directory\correction.pl line 26, <$INFILE> line 1.

我知道它与 Binmode utf8 有关，但即使我尝试了一个简单的脚本（在这里看到：如何从 Perl 输出 UTF-8？）：

use strict;
use utf8;
my $str = 'Çirçös';
binmode(STDOUT, ":utf8");
print "$str\n";

它打印出这个：Ãirþ÷s

这是我的整个脚本，有人可以向我解释我哪里出错了吗？（它不是最干净的代码，因为我正在测试东西）。

use strict;
use warnings;
use File::Copy;
use utf8;

my $inputfile  = shift || die "give input!\n";
#my $outputfile = shift || die "Give output!\n";

open my $INFILE,  '<', $inputfile   or die "In use / not found :$!\n";
#open my $OUTFILE, '>', $outputfile  or die "In use / not found :$!\n";

binmode($INFILE, ":encoding(utf8)");

#binmode($OUTFILE, ":encoding(utf8)");

while (<$INFILE>) {
s/"//g;
my @elements = split /;/, $_;

my $old = $elements[1];
my $new = "new/$elements[3]";
binmode STDOUT, ':utf8';
print "$old | $new\n";

copy("$old","$new") or die "Copy failed: $!";
#copy("Copy.pm",\*STDOUT);

#   my $output_line = join(";", @elements);
#    print $OUTFILE $output_line;
#print "\n"
}

close $INFILE;
#close $OUTFILE;

exit 0;
4

1 回答 1

3

您需要确保流程的每一步都使用 UTF-8。

创建输入 CSV 时，您需要确保它保存为 UTF-8，最好没有 BOM。Windows 记事本将添加 BOM，因此请尝试使用 Notepad++，它可以让您更好地控制编码。

您还遇到 Windows 控制台默认不兼容 UTF-8 的问题。请参阅Windows 命令行中的 Unicode 字符 - 如何？. chcp 65001使用或不更改 STDOUT 编码设置代码页。

就您的代码而言，关于新行的第一个错误可能是由于 CSV 中的尾随新行。chomp()之后添加while (<$INFILE>) {

更新：

要“解决”您需要在正确的语言环境中对文件名进行编码的文件 - 请参阅如何使用 Perl 在 Windows 中创建 unicode 文件名以及将文件 I/O API 与 unicode 文件名一起使用的通用方法是什么？. 假设您使用的是 Western 1252 / Latin，这意味着您的复制命令将如下所示：

copy(encode("cp1252", $old), encode("cp1252", $new))

此外，您的 open 还应该对文件名进行编码：

open my $INFILE,  '<', encode("cp1252", $inputfile)

更新 2：

当您在 DOS 窗口中运行时，删除binmode(STDOUT, ":utf8");并保留默认代码页。

于 2012-11-23T13:31:48.857 回答