LWP :: UserAgent를 사용하여 ISO-8859-1로 인코딩 된 웹 사이트를 검색하는 올바른 방법은 무엇입니까?

Question

다음 코드와 함께 'LWP :: UserAgent '를 사용하여 인코딩 된 웹 사이트'ISO-8859-1 '을 검색하고 있습니다.

특수 문자가 올바르게 표시되지 않아서 특히 "€"기호가 잘못 표시되는 것이 문제입니다.

콘텐츠 인코딩이 'ISO-8859-1'로 인식됩니다.

검색된 텍스트를 표시하려면 파일에 저장하고 Notepag ++로 엽니 다.

질문 : 올바른 방법으로 'ISO-8859-1 '로 인코딩 된 특수 문자를 검색하려면 어떻게해야합니까?

 

#SENDING REQUEST 
my $ua = LWP::UserAgent->new(); 
$ua->agent('Mozilla/5.0 (Windows NT 6.1; WOW64; rv:15.0) Gecko/20100101 Firefox/15.0.1'); # pretend we are very capable browser 

my $req = HTTP::Request->new(GET => $url); 

#add some header fields 
$req->header('Accept', 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8'); 
$req->header('Accept-Language', 'en;q=0.5'); 
$req->header('Connection', 'keep-alive'); 
$req->header('Host', 'www.url.com'); 

#SEND 
my $response = $ua->request($req); 

#decode trial1 
print $response->content_charset(); # gives ISO-8859-1 which is right 
my $content = $response->decoded_content(); #special chars are displayed wrong 

#decode trial2 
my $decContent = decode('ISO-8859-1', $response->content()); 
my $utf8Content = encode('utf-8', $decContent); #special char € is displayed as  

#decode trial3 
Encode::from_to($content, 'iso-8859-1', 'utf8'); #special char € is displayed as  too 


#example on writing data to file 
open(MYOUTFILE, ">>D:\\encodingperl.html"); #open for write, overwrite 
print MYOUTFILE "$utf8Content"; #write text 
close(MYOUTFILE); 

 

Answer 1

는 :

말했다

my $content = $response->decoded_content(); 

의 iso-8859-1 캐릭터 세트는 유로 기호가 포함되어 있지 않습니다. 아마도 실제로는 cp1252 일 것입니다. 다음과 같이 수정할 수 있습니다.

my $content = $response->decoded_content(charset => 'cp1252'); 

두 번째 문제는 출력을 인코딩하지 않는다는 것입니다. 이것이 당신이하는 방법입니다.

open(my $MYOUTFILE, '>>:encoding(cp1252)', 'D:\\encodingperl.html') 
    or die $!; 
print $MYOUTFILE $content; 

은 당신이 원하는 cp1252하지의 경우 (예를 들어, UTF-8)에 적합한의 인코딩을 사용합니다. 원래 인코딩에서 원본 파일을 원하는 경우에,

my $content = $response->decoded_content(charset => 'none'); 

및

open(my $MYOUTFILE, '>>', 'D:\\encodingperl.html') 
    or die $!; 
binmode($MYOUTFILE); 
print $MYOUTFILE $content; 

Answer 2

ISO-8859-1에는 유로화가 없습니다. 유로화 기호가 필요한 경우 ISO-8859-15 또는 더 나은 UTF-8을 사용해야합니다. 다른 동일