use strict; use warnings; use XML::Twig; my $xmlStr = <<XML; <draw:frame draw:id="id2" draw:layer="layout" draw:name="objectName" d +raw:style-name="gr1" draw:text-style-name="P3"> <draw:text-box> <text:p text:style-name="P1"> <text:span text:style-name="T2">objectData</text:span> </text:p> </draw:text-box> </draw:frame> XML my $twig= new XML::Twig( twig_handlers => { 'draw:frame' => \&getDrawInfo } ); $twig->parse($xmlStr); exit; sub getDrawInfo { my ($t, $data) = @_; print $data->att('draw:name'), "\n"; } __END__ objectName
In reply to Re: XML::Twig and oodraw
by toolic
in thread XML::Twig and oodraw
by carcassonne
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |