Always, always proofread your work, Sigh. I meant to say:
Line 14 should be:
print $mail->child('smtp_server')->value;
not
print $mail->child('smtp_server')->{VALUE};
On 13 Jun 2001 16:46:06 -0400, Chas Owens wrote:
> line should be:
> print $mail->child('smtp_server')->value;
> not
> print $mail->child('smtp_server')->{VALUE};
>
> On 13 Jun 2001 20:25:18 +0000, Stout, Joel R wrote:
> > 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. ???
> --
> Today is Prickle-Prickle, the 18th day of Confusion in the YOLD 3167
> Kallisti!
>
--
Today is Prickle-Prickle, the 18th day of Confusion in the YOLD 3167
You are what you see.
