Re: XML::Simple help


laziness, impatience, and hubris
	PerlMonks

Re: XML::Simple help

by saintmike (Vicar)

on Mar 08, 2005 at 00:47 UTC ( #437371=note: print w/replies, xml )

Need Help??

in reply to XML::Simple help

Not sure if XML::Simple can do it, but a little post processing will do:

my $ref = XMLin($data, KeyAttr => { charge => "code"});

my %hash =
    map { ($_, $ref->{charge}->{$_}->{name}) } keys %{$ref->{charge}};
$ref = \%hash;
[download]

Comment on Re: XML::Simple help Download Code

Replies are listed 'Best First'.

Re^2: XML::Simple help
by holli (Abbot) on Mar 08, 2005 at 06:01 UTC

package ChargeTypeXML;

sub new
{
  my $class = shift;
  my %args  = shift;
  
  my $ref = XMLin($args->{file}, KeyAttr => { charge => "code"});

  my %hash =
    map { ($_, $ref->{charge}->{$_}->{name}) } keys %{$ref->{charge}};
  $ref = \%hash;

  bless $ref, $class;
  return $ref;
}

sub toXML
{
  print qq{<?xml version="1.0" encoding="UTF-8" ?>\n};
  print qq{<charge-type-control>\n};
  for keys ( %{$self} )
  {
    print qq{<charge code="$_" name="}, $self->{$_}, qq{frtamt"/>\n};
  }
  print qq{</charge-type-control>};
}

1;

#in the script:
use ChargeTypeXML;
my $xml = ChargeTypeXML->new (file=>"xmlfile");
[download]

unique

holli, /regexed monk/

[reply]
[d/l]

In Section Seekers of Perl Wisdom