Could be. Because, the code that I sent works fine in my environment. C:\temp>perl -v
This is perl, v5.8.7 built for MSWin32-x86-multi-thread (with 14 registered patches, see perl -V for more detail) Copyright 1987-2005, Larry Wall Binary build 815 [211909] provided by ActiveState http://www.ActiveState.com ActiveState is a division of Sophos. Built Nov 2 2005 08:44:52 Perl may be copied only under the terms of either the Artistic License or the GNU General Public License, which may be found in the Perl 5 source kit. Complete documentation for Perl, including FAQ lists, should be found on this system using `man perl' or `perldoc perl'. If you have access to the Internet, point your browser at http://www.perl.org/, the Perl Home Page. C:\temp>perl xml.pl before loop ... in $d loop ... Base Metadata in $d loop ... Extracted Re-Map finished C:\temp> with warm regards, Venkat Saranathan Gulf Breeze Software www.gulfsoft.com GulfBreeze Blog www.gulfsoft.com/blog -----Original Message----- From: brian bwarn [mailto:[EMAIL PROTECTED] Sent: Tuesday, July 25, 2006 11:50 AM To: beginners@perl.org Subject: RE: XML: :Simple -- can't print still: config problem? Thank you both for your replies. I'm still not having success with either Venkat's or Mumia's version of the foreach loop. I tried an example of something that should work--namely Listing C using the source in Listing A of the how-to article at http://builder.com.com/5100-6371-5363190.html. I can't get anything to output with that either. Is there something I should look for in my configuration / module setup (I'm running perl v.5.6.1 (ActiveState Build 638) using the latest versions of XML-Simple and Data-Dumper provided at http://ppm.activestate.com/PPMPackages/zips/6xx-builds-only/. Thanks again, BW --- Venkat Saranathan <[EMAIL PROTECTED]> wrote: > The data structure is little more complicated than > list of hashes due to the > attributes in XML. > > > Here is an updated version of your perl code. > > #use modules > use XML::Simple; > use Data::Dumper; > > # create object > $xml = new XML::Simple (KeyAttr=>[]); > > # read XML file > > $data= > $xml->XMLin("C:\\temp\\input.xml"); > > # dereference hash reference > # access <dataschemas> array > > print "before loop ...\n"; > foreach $d > (@{$data->{dataschema}->{includes}->{include}}) { > print "in \$d loop ...\n"; > print $d->{name}, "\n"; > > } > print "finished\n"; > > > > with warm regards, > Venkat Saranathan > Gulf Breeze Software > www.gulfsoft.com > > GulfBreeze Blog > www.gulfsoft.com/blog > > > -----Original Message----- > From: brian bwarn [mailto:[EMAIL PROTECTED] > Sent: Monday, July 24, 2006 6:00 PM > To: beginners@perl.org > Subject: XML::Simple -- can't get anything to print > from array > > > I'm just starting out with XML::Simple and can't get > any output to display to STDOUT. What am I missing? > > ------------------- > Source XML snippet: > ------------------- > <dataschemas> > <dataschema name="defaultDB"> > <includes> > <include name="Base Metadata"/> > <include name="Extracted Re-Map"/> > </includes> > <attributes> > <attribute category="" parser="TextParser" > extract="true" segmentation="soft"/> > </attributes> > </dataschema> > </dataschemas> > > --------------- > Perl code: > ---------------- > # use modules > use XML::Simple; > use Data::Dumper; > > # create object > $xml = new XML::Simple (KeyAttr=>[]); > > # read XML file > > $data= > $xml->XMLin("C:\datafiles\specialIncludes.xml"); > > # dereference hash reference > # access <dataschemas> array > > print "before loop ...\n"; > foreach $d (@{$data->{dataschema}}) { > print "in \$d loop ...\n"; > print "dataschema is: ", $d->{includes}->{name}, > "\n"; > } > print "finished\n"; > > --------------- > Output: > --------------- > before loop ... > finished > > Thanks, BW > > __________________________________________________ > Do You Yahoo!? > Tired of spam? Yahoo! Mail has the best spam > protection around > http://mail.yahoo.com > > -- > To unsubscribe, e-mail: > [EMAIL PROTECTED] > For additional commands, e-mail: > [EMAIL PROTECTED] > <http://learn.perl.org/> > <http://learn.perl.org/first-response> > > > > > > -- > To unsubscribe, e-mail: > [EMAIL PROTECTED] > For additional commands, e-mail: > [EMAIL PROTECTED] > <http://learn.perl.org/> > <http://learn.perl.org/first-response> > > > __________________________________________________ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
