Help for this page

Select Code to Download


  1. or download this
    $text= ( $elt->first_child( 'subelt') && $elt->first_child( 'sub_elt')
+->first_child( 'subsubelt')) ?
$elt->first_child( 'sub_elt')->first_child( 'subsubelt')->text : undef
+;
  2. or download this
    #!/bin/perl -w 
use strict;

...
print "  parent->kid: ", $parent->kid->value || '', "\n";
print "  parent->kid->kid: ", $parent->kid->kid->value || '', "\n";
print "  parent->kid->kid->kid: ", $parent->kid->kid->kid->value || ''
+, "\n\n";