如何解析xml網頁perl

Question

你好目前我能解析XML文件，如果它保存在我的文件夾從網頁。

use strict; 
use warnings; 
use Data::Dumper; 
use XML::Simple; 

my $parser = new XML::Simple; 
my $data = $parser->XMLin("config.xml"); 
print Dumper($data); 

但是，如果我試圖從網站解析它，它不起作用。

use strict; 
use warnings; 
use Data::Dumper; 
use XML::Simple; 

my $parser = new XML::Simple; 
my $data = $parser->XMLin("http://website/computers/computers_main/config.xml"); 
print Dumper($data); 

它給了我下面的錯誤「文件不存在：http://website/computers/computers_main/config.xml在test.pl第12行」

如何解析從網頁多個XML文件？我必須抓住多個XML形式的網站和解析它。有人可以幫我這個嗎？

Answer 1

超級編輯：此方法將需要WWW :: Mechanize，但它將允許您登錄到您的網站，然後獲取XML頁面。你將不得不改變評論中的一些東西。希望這可以幫助。

use strict; 
use warnings; 
use Data::Dumper; 
use XML::Simple; 
use WWW::Mechanize; 

# Create a new instance of Mechanize 
$bot = WWW::Mechanize->new(); 
# Create a cookie jar for the login credentials 
$bot->cookie_jar(
     HTTP::Cookies->new(
      file   => "cookies.txt", 
      autosave  => 1, 
      ignore_discard => 1, 
    ) 
); 
# Connect to the login page 
$response = $bot->get('http://www.thePageYouLoginTo.com'); 
# Get the login form 
$bot->form_number(1); 
# Enter the login credentials. 
# You're going to have to change the login and 
# pass(on the left) to match with the name of the form you're logging 
# into(Found in the source of the website). Then you can put your 
# respective credentials on the right. 
$bot->field(login => 'thisIsWhereYourLoginInfoGoes'); 
$bot->field(pass => 'thisIsWhereYourPasswordInfoGoes'); 
$response =$bot->click(); 
# Get the xml page 
$response = $bot->get('http://website/computers/computers_main/config.xml'); 
my $content = $response->decoded_content(); 
my $parser = new XML::Simple; 
my $data = $parser->XMLin($content); 
print Dumper($data); 

給這一去。如上所述使用LWP :: Simple。它只是連接到頁面並抓取該頁面的內容（xml文件）並通過XMLin運行。 編輯：添加簡單的錯誤檢查在$ url行。 編輯2：保持代碼在這裏，因爲它應該工作，如果不需要登錄。

use strict; 
use warnings; 
use Data::Dumper; 
use XML::Simple; 
use LWP::Simple; 

my $parser = new XML::Simple; 

my $url = 'http://website/computers/computers_main/config.xml'; 
my $content = get $url or die "Unable to get $url\n"; 
my $data = $parser->XMLin($content); 

print Dumper($data); 

Answer 2

閱讀XML::Simple的文檔。請注意，XMLin方法可以獲取文件句柄，字符串，甚至是一個IO::Handle對象。它不能採取的是通過HTTP的URL。

使用Perl模塊LWP::Simple來獲取您需要的XML文件並將其傳遞給XMLin。

您必須通過使用cpan來下載和安裝LWP::Simple，正如您以前所做的操作XML::Simple。

Answer 3

如果您還沒有任何具體的原因要堅持XML :: Simple，然後使用一些其他的解析器，如XML ::嫩枝，XML ::的libxml它提供了一個內置的功能，通過解析現有的XML網頁。

下面是使用相同的XML簡單的代碼::嫩枝

use strict; 
use warnings; 
use XML::Twig; 
use LWP::Simple; 

my $url = 'http://website/computers/computers_main/config.xml'; 
my $twig= XML::Twig->new(); 
$twig->parse(LWP::Simple::get($url)); 

至於說，XML ::簡單沒有這樣的內置功能。