sub print_elt_text { my ($t, $section) = @_; my $appl = $section->first_child('Application'); my $timeo = $appl->first_child('Properties')->first_child('Timeout +'); if (defined $timeo) { print $appl->att('Name'), ' ', $timeo->text(), "\n"; } } __END__ App1 900
In reply to Re: XML::Twig Search
by toolic
in thread XML::Twig Search
by Gizmo
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |