XML::XMLLIB attribute search (Allgemeines zu Perl)

[thread]17704[/thread]

XML::XMLLIB attribute search

Tags: perl5 xmllib Ähnliche Threads

Leser: 11

Articles: hide open all | hide show old branches

+3 replies

Gast fmhweb

2012-08-28 10:59

Hi,

i have the xml below and would like to extract the sessionname where session id == 0.

I am using this query but it does not work:

Code: (dl )

1
2
3

foreach my $tag ($doc->findnodes(('//sessions/session[@id="0"]/sessionname/text()'))){
   print $tag->value();
}

Will this query work at all or will i need to do another findnotes in that node or mayby something else like findvalue? Some help to get me started would be great.

Code: (dl )

<?xml version="1.0" encoding="utf-8"?>
<sessions>
  <session id="0">
    <query_limit>20</query_limit>
    <time_begin>08-27-2011</time_begin>
    <searchvalue2>.+</searchvalue2>
    <showwarn>1</showwarn>
    <showna>1</showna>
    <table_collums>3</table_collums>
    <graph_height>100</graph_height>
    <query_start>0</query_start>
    <showok>1</showok>
    <graph_width>300</graph_width>
    <time_end>08-27-2012</time_end>
    <searchvalue/>
    <showcrit>1</showcrit>
    <hostgroup>app-nagios</hostgroup>
    <type>all</type>
    <showunkn>1</showunkn>
    <sessionname>unknown</sessionname>
    <workload>0</workload>
  </session>
  <session id="1">
    <query_limit>20</query_limit>
    <time_begin>08-27-2011</time_begin>
    <searchvalue2>.+</searchvalue2>
    <showwarn>1</showwarn>
    <showna>1</showna>
    <table_collums>3</table_collums>
    <graph_height>100</graph_height>
    <query_start>0</query_start>
    <showok>1</showok>
    <graph_width>300</graph_width>
    <time_end>08-27-2012</time_end>
    <searchvalue/>
    <showcrit>1</showcrit>
    <hostgroup>app-nagios</hostgroup>
    <type>all</type>
    <showunkn>1</showunkn>
    <sessionname>unknown</sessionname>
    <workload>0</workload>
  </session>
</sessions>

Last edited: 2012-08-28 11:04:22 +0200 (CEST)

Gast fmhweb

2012-08-28 11:41

I should have used:
print $tag->toString();

Now it works.
Last edited: 2012-08-28 12:00:55 +0200 (CEST)
pq

2012-08-28 12:56

User since
2003-08-04
12208 Artikel
Admin1

"XML::XMLLIB" - did you mean XML::LibXML?
also, if you are able to speak german, that would be preferred here.
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem

View all threads created 2012-08-28 10:59.