in reply to Re: How to fetch the value using LWP:: UserAgent
in thread How to fetch the value using LWP:: UserAgent

I tried with following code

my $dom = XML::LibXML->load_xml(string => <<'XML');
  <$response->decoded_content/>
XML
  for my $node ($dom->findnodes('//drl[@connectionid]')) {
  print $node->getAttribute('connectionid');

[download]

it is throwing the error, what is wrong here

Replies are listed 'Best First'.
Re^3: How to fetch the value using LWP:: UserAgent
by aitap (Curate) on Jul 16, 2012 at 12:27 UTC
    Your try to use here-doc there was wrong. Just pass the decoded_content as the value of "string": my $dom = XML::LibXML->load_xml(string => $response->decoded_content);
    Sorry if my advice was wrong.
[reply]
[d/l]

      I am Done but using Simple module

       if ($response->is_success) {
  my $data = $response->decoded_content;
  open (MYFILE, '>>data.xml');
  print MYFILE "$data";
  close MYFILE;
  my $xml = new XML::Simple;
  my $data1 = $xml->XMLin("data.xml");
  print $data1->{connectionid};
}

      [download]
[reply]
[d/l]

        As is's said in the module documentation, you can pass the XML directly to XMLin:

        A string of XML A string containing XML (recognised by the presence of '<' and '>' characters) will be parsed directly. eg: $ref = XMLin('<opt username="bob" password="flurp" />');
        my $data = $xml->XMLin($response->decoded_content);

        Using temporary files should be avoided because it's possible race condition.
        Sorry if my advice was wrong.
[reply]
[d/l]
[select]

      Again its troubling on one place

       my $xml = '<?xml version="1.0" encoding ="UTF-8"?><!DOCTYPE drl SYSTEM "http://172.XX.XXX.XXX:40500/lab/api/reserveRequest.dtd"><drl mode="normal" id="$Id"><id="1009"><attributes><attribute name="Clust" link="true" category="INV"><value>8</value></attribute></attributes></drl>';

      Here $Id is I am getting from another request and its declared globally but as request is in single quote it wont be able to get the value of $id , I have to use escape character or some interpolation method, tried a lot but vain..Can any one help

[reply]
[d/l]

        Variables are not substituted in single quotes ('). You can use joining operator (.) to join strings together, like this: 

        '<?xml version="1.0" encoding ="UTF-8"?><!DOCTYPE drl SYSTEM "http://1
+72.XX.XXX.XXX:40500/lab/api/reserveRequest.dtd"><drl mode="normal" id
+="'.$Id.'"><id="1009"><attributes><attribute name="Clust" link="true"
+ category="INV"><value>8</value></attribute></attributes></drl>'

        [download]
        You may also want to use some XML generator to generate valid XML in case $id contains special characters, or read about quoting operators.

        # I suggest you to buy a Perl book ("Learning Perl" is very good, for example). Your questions show that there is much room for improvement of your Perl skills.

        Sorry if my advice was wrong.
[reply]
[d/l]

In Section Seekers of Perl Wisdom