I'm trying to use XML::Generator::PerlData module, and I can't generate attribute=value pair:
As you see, attribute and value passed to start_tag generate {}attr1="HASH(0x1f0bb00)", and the call to $pd->attrmap(entry => ['attr2']), supposed to add attr2="value2"pair inside entryelement just hides attr2 at all.#!/usr/bin/perl -w use strict; use XML::Generator::PerlData; use XML::Handler::YAWriter; use IO::File; my $handler = XML::Handler::YAWriter->new( Output => new IO::File (">-"), Pretty => { PrettyWhiteIndent => 1, PrettyWhiteNewline => 1, CompactAttrIndent => 1 }); my $pd = XML::Generator::PerlData->new(Handler => $handler); $pd->attrmap(entry => ['attr2']); $pd->parse_start(); $pd->start_tag('entry', attr1 => 'value1'); my $href; $href->{path} = 'path'; $href->{attr2} = 'value2'; $pd->parse_chunk($href); $pd->end_tag('entry'); $pd->parse_end(); _OUTPUT_ <?xml version="1.0" encoding="UTF-8"?> <document> <entry {}attr1="HASH(0x1f0bb00)"> <path>path </path> </entry> </document>
What's wrong with it? Please help me.
--dda
In reply to XML::Generator::PerlData and attributes by dda
For: | Use: | ||
& | & | ||
< | < | ||
> | > | ||
[ | [ | ||
] | ] |