Comment puis-je extraire des données XML d'une URL en utilisant XML :: Twig?

Question

Je veux obtenir une chaîne spécifique, par exemple 123 dans < reçu> 123 </reçu> de du code XML qui sera récupéré à partir d'une URL.

J'ai écrire un code, mais coincé avec un message d'erreur:

Tentative de bénir en référence à la ligne /usr/share/perl5/XML/Twig.pm 392.

Comment puis-je le résoudre?

Le code:

use XML::Twig; 
use LWP::Simple; 

my $url = 'http://192.168.1.205:13000/status.xml'; 
my $twig = new XML::Twig(TwigRoots => { 
'smsc/received' => sub {$author = $_[1]->text; }}); 
$twig->nparse($url); 
$twig->print; 

Answer 1

nparse prend soin du new pour vous (d'où le « n »), ce que vous voulez dans ce cas est probablement xparse, ou tout simplement laisser module dehors et faire ceci:

my $url= 'http://192.168.1.205:13000/status.xml'; 
my $twig= XML::Twig->parse(twig_roots => 
           { 'smsc/received' => sub { $author= $_[1]->text;}}, 
          $url 
          ); 
$twig->print; # I am not sure why you print the twig instead of just $author 

Answer 2

semble être un bogue dans nparse méthode parce que si vous remplacez cette ligne avec:

$twig->parse(LWP::Simple::get($url)); 

alors vous devriez trouver cela fonctionne très bien (ou il ne quand je l'essaie).

/I3az/