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

问：

我正在编写一个程序来修复损坏的编码，特别是拉丁语 1（） 到希腊语 （）。iso-8859-1iso-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]);

当我使用与我的变量相同的输入运行此程序时，reults 并不相同（正如我预期的那样）：$test

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

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

我如何获得变量的行为方式？$ARGV[0]$test