in reply to XML::Parser - Code Reference Error?

I think you meant.. 
my $tmp = $parse->parse($address);

[download]
the $parse object needs a method
Also, the parse method seems to return a array reference, not a hash. 
use strict;
use warnings;
use XML::Parser;
use Data::Dumper;
my $parse = new XML::Parser(Style => 'Objects');
my $address = "<LOC><HNO></HNO><STN>Eagle Way</STN><MCN>Gotham City</M
+CN></LOC>";
print Dumper $parse->parse($address);

[download]
this produces.. 
C:\tmp>test.pl
$VAR1 = [
          bless( {
                   'Kids' => [
                               bless( {
                                        'Kids' => []
                                      }, 'main::HNO' ),
                               bless( {
                                        'Kids' => [
                                                    bless( {
                                                             'Text' =>
+ 'Eagle Way'
                                                           }, 'main::C
+haracters' )
                                                  ]
                                      }, 'main::STN' ),
                               bless( {
                                        'Kids' => [
                                                    bless( {
                                                             'Text' =>
+ 'Gotham City'
                                                           }, 'main::C
+haracters' )
                                                  ]
                                      }, 'main::MCN' )
                             ]
                 }, 'main::LOC' )
        ];

[download]
You might want to consider XML::Simple. It has a much simpler interface 
use strict;
use warnings;
use XML::Simple;
use Data::Dumper;
my $address = "<LOC><HNO></HNO><STN>Eagle Way</STN><MCN>Gotham City</M
+CN></LOC>";
my $ref = XMLin($address);
print Dumper $ref;

[download]
This produces... 
C:\tmp>test.pl
$VAR1 = {
          'MCN' => 'Gotham City',
          'HNO' => {},
          'STN' => 'Eagle Way'
        };

[download]

Replies are listed 'Best First'.
Re^2: XML::Parser - Code Reference Error?
by awohld (Hermit) on Jun 10, 2005 at 05:42 UTC
    I've never worked with an array reference before.

    So how would I print the 'Text'=>'Eagle Way' from that array reference?
    So it looks like this data structure is a multidimensional array? I'm having a hard time understanding it.

    What does Data::Dumper mean by 'bless'?
[reply]
      my @array = (1, 2, 7, 10);
my $array_ref = \@array;

print $array[2]; # prints 7
print $array_ref->[2]; # prints 7 (difference is the -> )

      [download]

      bless basically means that it's not just a reference, it's a reference to an object of some class.

      Read the documentation for Data::Dumper - it's a great tool to see how these complex data structures are built.

[reply]
[d/l]
        So I'm trying to print from this array reference, but I'm missing something.
        #!/usr/local/bin/perl -w

use strict;
use CGI::Carp qw(fatalsToBrowser);
use XML::Parser;
use CGI;
use Data::Dumper;

my $q = CGI->new();
print $q->header();

my $parse = new XML::Parser(Style => 'Objects');

my $address = "<LOC><HNO></HNO><STN>Eagle Way</STN><MCN>Gotham City</M
+CN></LOC>";

my $tmp = $parse->parse($address);

print $tmp->[0][1];

        [download]
        So I'm taking the array reference created by $parse->parse($address) and storing it in $tmp. Then I'm trying to print from the array reference but I get an error saying that $tmp isn't an array refernce.

        What am I missing?
[reply]
[d/l]

In Section Seekers of Perl Wisdom