in reply to regex matching issue
use strict; use warnings; use XML::Twig; my $xmlStr = <<XML; <item name="pdf_link"> <value>http://www.yahoo.com</value> </item> XML my $twig= XML::Twig->new( twig_handlers => { item => \&item } ); $twig->parse($xmlStr); sub item { my ($twig, $item) = @_; if ($item->att('name') eq 'pdf_link') { print $item->first_child('value')->text(), "\n"; } } __END__ http://www.yahoo.com
|
|---|