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ÃÃÃ

我假設導入的文本不正確編碼。任何人都知道如何在導入時對文本進行編碼？

在此先感謝。

傑克

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)); 

Answer 2

只要告訴Perl的是什麼編碼的文件是：

open FILE, '<:utf8', $filename or die $!; 

或者，如果你想查詢的編碼，使用

open FILE, '<:encoding(UTF-8)', $filename or die $!;