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

를 사용 파일을 디코딩합니다.

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

그냥 파일을 인코딩하기에 무엇 펄 이야기 : 당신이 인코딩을 확인하려면,

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

또는, 당신은 펄을 말하지 않았다

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