Re^2: perl xml format question

in reply to Re: perl xml format question
in thread perl xml format question

Hi Tobyink, Thank you for your super-prompt and helpful response. I was getting the following error when i tried to use the code

            my $field = $metadata->addNewChild(undef, 'field');
            %$field = (
                name  => $col,
                alias => "a".++$alias_num,
            );
[download]

I got the error "Not a HASH reference at test1_perlmonk_suggestion.pl line 52". Any idea what i need to change to avoid this error

I also got the following error "Issuing rollback() due to DESTROY without explicit disconnect() of DBD::Oracle::db handle (DESCRIPTION=(ADDRESS=(HOST=IN1NPDVMPMT02)(PROTOCOL=tcp)(PORT=1521))"

Comment on Re^2: perl xml format question Download Code

Replies are listed 'Best First'.
Re^3: perl xml format question by tobyink (Canon) on Jan 29, 2013 at 11:20 UTC
Are you using an oldish version of XML::LibXML perhaps? The ability to handle an element's attributes like a hash was only added in 1.91 IIRC. You can use `setAttribute` in older versions. `package Cow { use Moo; has name => (is => 'lazy', default => sub { 'Mooington' }) } say Cow->new->name`	[reply] [d/l]
Re^4: perl xml format question by Anonymous Monk on Jan 29, 2013 at 16:51 UTC
Thanks, i was using an older version since ppm was only able to find/install the older version (XML::LibXML 1.7). After using setAttribute i was able to get the desired output. My database error is also gone. Thank you Tobyink	[reply]

In Section Seekers of Perl Wisdom