PERL:如何检测字符串编码以便我可以使用正确的字符集

Question

我有这两个示例字符串:

$a = "點看"; 
$b = "pøp";

第一个使用字符集 UTF-8 正确显示，但第二个字符串没有。
如果字符集更改为 iso-8859-1，则第二个显示正确。

我不知道如何使用字符集 utf-8 显示 latin1 字符。
或者至少，我需要一个解决方案来检测字符串类型(例如这是“utf-8”或这是“iso-8859-1”)，所以我可以使用适当的字符集来显示它。

Answer 1

解码输入。编码输出。

use strict;
use warnings qw( all );
use feature qw( say );

use utf8;                             # Source code is encoded using UTF-8
use open ':std', ':encoding(UTF-8)';  # Terminal expects UTF-8

my $s1 = "點看"; 
my $s2 = "pøp";

say for $s1, $s2;