Advertisement
Guest User

Untitled

a guest
Jul 20th, 2017
60
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.64 KB | None | 0 0
  1.  
  2. #This is the XML it will use:
  3.  
  4. #  <testsuite name="LDAPConfigurationTest">
  5. #    <activateModules>NO</activateModules>
  6. #    <base>ISM</base>
  7. #    <folder>LDAP/Cx/configuration</folder>
  8. #    <genConfiguraModules>ISM:SDA:AVG</genConfiguraModules>
  9. #    <modules>ISM:SDA:AVG</modules>
  10. #  </testsuite>
  11.  
  12.  
  13. my $results = $doc->findnodes('//testsuite[@name="LDAPConfigurationTest"]');
  14.  
  15. my @res = $results->get_nodelist;
  16.  
  17.  foreach my $context (@res)
  18.   {
  19.     print $context->textContent();
  20.     print "hi";
  21.     print $context->nodeName;
  22.   }
  23.  
  24.  
  25. #result:
  26.  
  27.  
  28.     NO
  29.     ISM
  30.     LDAP/Cx/configuration
  31.     ISM:SDA:AVG
  32.     ISM:SDA:AVG
  33.   hitestsuite
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement