Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- <Item>
- <data1 > <data3> date </data3> </data1>
- <data2> data2 </data2>
- </Item>
- <item>
- <data1 > <date3> data22 </data3> </data1>
- <data2> data2 </data2>
- <.Item>
- ....
- use strict; use warnings;
- use XML::Twig;
- my $data = <<END_DATA;
- <items>
- <item>
- <data1> data1 </data1>
- <data2> data2 </data2>
- </item>
- <item>
- <data1> data1 </data1>
- <data2> data2 </data2>
- </item>
- </items>
- END_DATA
- my $t = XML::Twig->new(
- twig_handlers => {
- 'item' => sub {
- # process each item and print contents of dataN elements
- print
- $_->first_child_trimmed_text('data1'), "t",
- $_->first_child_trimmed_text('data2'),"n";
- },
- },
- )->parse($data);
Add Comment
Please, Sign In to add comment