XML :: Simple이 URL과 작동하지 않는 것 같습니다. 이 올바른지?

Question

나는 다음과 같은 스크립트를 사용하고 있습니다 :

#!/usr/local/bin/perl -wT 

use strict; 
use warnings; 

print "Content-type: text/html\n\n"; 
print "xml reader"; 

# use module 
use XML::Simple; 
use Data::Dumper; 

#print Dumper (XML::Simple->new()->XMLin()); 

을 그리고 내가 지금 내 CGI-빈에서 xml 파일을 이동 이름을 변경하는 경우 xml.xml

라는 내 xml 파일에 읽고 것 그것을 사용하여 참조 :

#print Dumper (XML::Simple->new()->XMLin("../resource.xml")); 

그것은 여전히 ​​작동합니다.

print Dumper (XML::Simple->new()->XMLin("http://digitalessence.net/resource.xml")); 

내가 함께하고 HTTP없이 시도 : : 지금 시도하고 URL을 사용하는 경우

대신 스크립트는 아무 것도 반환하지 않습니다 // www가 및 다른 모든 종류의 방법이없는 이 일을하지만 아무것도 반환하지 않습니다.

내가 바보 같은 일을했거나 원격 URL을로드하지 않았습니까?

감사합니다.

Answer 1

XML::Simple의 XMLin() 메서드는 URL에서 XML을 가져 오는 것을 지원하지 않습니다. XMLin()을 적용하기 전에 파일이나 Perl 스칼라 변수에 XML을 개별적으로 가져와야합니다. 이는 XML::Simple 설명서에서 분명합니다.

Answer 2

다음과 같이 원격 리소스를 검색 할 LWP를 사용하여 프로그램을 수정할 수 있습니다

[...] 
# use module 
use XML::Simple; 
use LWP; 
use Data::Dumper; 

my $ua = LWP::UserAgent->new; 
my $req = HTTP::Request->new(GET => "http://digitalessence.net/resource.xml"); 
my $res = $ua->request($req); 

print Dumper (XML::Simple->new()->XMLin($res->content));