Perl - 更正命令行输入上的字符编码

Question

我正在编写一个程序来修复损坏的编码，特别是 latin1(iso-8859-1) 到希腊语 (iso-8859-7)。

我创建了一个按预期工作的函数；具有错误编码文本的变量会被正确转换。

当我尝试使用此函数转换 $ARGV[0] 时，它似乎无法正确解释输入。

这是一个演示该问题的测试程序:

#!/usr/bin/env perl

use 5.018;
use utf8;
use strict;
use open qw(:std :encoding(utf-8));
use Encode qw(encode decode);

sub unmangle {
 my $input = shift;

 print $input . "\n";
 print decode('iso-8859-7', encode('latin1',$input)) . "\n";
}


my $test = "ÁöéÝñùìá";  # should be Αφιέρωμα

say "fix variable:";
unmangle($test);

say "\nfix argument:";
unmangle($ARGV[0]);

当我使用与我的 $test 变量相同的输入运行该程序时，结果并不相同(正如我预期的那样):

$ ./fix_bad_encoding.pl "ÁöéÝñùìá"
fix variable:
ÁöéÝñùìá
Αφιέρωμα

fix stdin:
ÃöéÃñùìá
ΓΓΆΓ©ΓñùìÑ

如何让 $ARGV[0] 按照 $test 变量的方式运行？

Answer 1

您已解码源代码。您解码了 STDIN(您不使用)、STDOUT 和 STDERR。但不是@ARGV。

$_ = decode("UTF-8", $_) for @ARGV;