Perl:从文件导入包含 ÅäÖ 的文本

Question

我最终想要实现的目标是将文件中的所有小写字符转换为大写字符并将它们写入终端。

use utf8;
binmode STDOUT, ":utf8";

$text = "ABCÅÄÖ\n";

$text =~ tr/A-Ö/a-ö/;
print $text;

输出:

abcåäö

正如预期的那样。

但是当我尝试从文件导入相同的文本时，它变得很疯狂。

use utf8;
binmode STDOUT, ":utf8";

open FILE, $filename or die "An error occurred while reading the file: $!";
$text = join '', <FILE>;
close FILE or die "An error occurred while closing the file: $!";

$text =~ tr/A-Ö/a-ö/;
print $text;

输出

ABCàñ

我假设导入的文本未正确编码。有人知道如何在导入时对文本进行编码吗？

提前致谢。

jack

Answer 1

您没有告诉 Perl 解码该文件。

use strict;
use warnings;

use utf8;                             # Source code is UTF-8.
use open ':std', ':encoding(UTF-8)';  # Terminal and files are UTF-8.

my $qfn = ...;

open(my $fh, '<', $qfn)
   or die("Can't open file $qfn: $!\n");

my $text = do { local $/; <$fh> };
print(lc($text));