Perl과 utf-8 URI (일부 ASCII 문자가 아닌)로 HTTP 요청을 보내면 404 Not Found 오류가 발생합니다.

Question

ASCII가 아닌 문자가있는 URL을 요청하려고합니다. 예 : http://perry.wikia.com/wiki/Página_principalá 기호가 있습니다.

나는 LWP :: 해당 UserAgent와 함께 해봤지만 404 찾을 수 없음 오류가 발생합니다 :

#!/usr/bin/perl 

use utf8; 
use HTTP::Tiny; 
use Encode qw(decode encode); 

my $url = 'http://perry.wikia.com/wiki/Página_principal'; 
#~ my $url = encode('UTF-8','http://perry.wikia.com/wiki/Página_principal'); # doesn't work either 
my $response = HTTP::Tiny->new->get($url); 
if ($response->{success}) { 
    my $html = $response->{content}; 
} else { 
    die "Unexpected error requesting $url : " . $response->{status}; 
} 

Answer 1

:

#!/usr/bin/perl 

use utf8; 
use LWP::UserAgent; 
use Encode qw(decode encode); 

my $br = LWP::UserAgent->new; 
#~ my $url = 'http://perry.wikia.com/wiki/Página_principal'; # doesn't work either 
my $url = encode('UTF-8','http://perry.wikia.com/wiki/Página_principal'); 
my $response = $br->get($url); 
if ($response->{success}) { 
    my $html = $response->{content}; 
} else { 
    die "Unexpected error requesting $url : " . $response->status_line; 
} 

내가 HTTP : 작은도 같은 결과를 해봤를 이것은 Perl 모듈의 버그가 아닙니다. 이 URL은 실제로 404를 반환합니다.