RE: :Parser XML::SimpleObject -> First XML parsing pls help

[kotto]

You're a beginner?  

-----Original Message-----
From: Stout, Joel R [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, June 13, 2001 3:25 PM
To: [EMAIL PROTECTED]
Subject: XML::Parser XML::SimpleObject -> First XML parsing pls help


I took the example from
http://www.xml.com/pub/a/2001/04/18/perlxmlqstart1.html
I wanted something really simple for XML parsing that basically just reads
values.  But I'm stuck (again).

#Here's what I'm trying to run:

#!c:\perl\perl.exe 

use XML::Parser;
use XML::SimpleObject;
use strict;

my $file = 'c:\perl\work\job001_card.xml';

my $parser = XML::Parser->new(ErrorContext => 2, Style => "Tree");
my $xso = XML::SimpleObject->new( $parser->parsefile($file) );

foreach my $mail ($xso->child('job_card')->children('email')) {
        print "SMTP server: ";
        print $mail->child('smtp_server')->{VALUE};
        print "\n";
}

#and I get 
'SMTP server: <blank>'

#Here's an excerpt of the file I've been given:
<job_card>
        <process_name>xxxxxx</process_name>
        <ftp_site type="incoming">
                <server>ftp.xxxxxxx.com</server>
                <user>pxxxxx</user>
                <password>fxxxxx</password>
                <folder>.</folder>
                <skip_file></skip_file>
        </ftp_site>
        <file_move>
                <file_dest>c:\test</file_dest>
                <file_ext>.xxx</file_ext>
        </file_move>
        <log_file>c:\perl\log</log_file>
        <email>
                <smtp_server>mxxxxx.exxxxx.com</smtp_server>
                ...
        </email>
        ...
</job_card>

#I think I'm close.  When I add -w I get:
'use of uninitialized value in print at line 14 ...'
#but I know there's a value for that tag. ???