Perl SAX - reading attributes

[Zippeh]

Hi there,

Trying to use SAX now to process my XML Document, but having some difficulties reading the attributes of an element. What I have is this:

sub start_element {
  my ($self, $data) = @_;
  if ($data->{Name} eq 'batch') {
	print Dumper($data);
    my $batch_company = $data->{Attributes->"batch_company"->{Value};
  }
}

I know this is wrong, but I'm trying to read the attribute "batch_company" which occurs in the "batch" element. How can I go about this?

TIA

 

[PaulTEG]

Have you tried this;

my $batch_company=$data{'batch_company'};

--Paul

cigless ...

 

[Zippeh]

I found the answer on another site after further research. This works:

    $batch_company = $data->{Attributes}->{"{}batch_company"}->{Value};