Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings; no warnings 'uninitialized';
...
#print Dumper($data);

print $data->{cur}{ACT};
  2. or download this
    my $parser = XML::Rules->new(
    stripspaces => 7,
...
foreach my $datasource (@{$data->{cur}}) {
    print $datasource->{ACT}, "\n";
}
  3. or download this
    my $parser = XML::Rules->new(
    stripspaces => 7,
...
#print Dumper($data);

print join( ", ", @{$data->{cur}}), "\n";