Wrox Programmer Forums
Go Back   Wrox Programmer Forums > Open Source > Perl
|
Welcome to the p2p.wrox.com Forums.

You are currently viewing the Perl section of the Wrox Programmer to Programmer discussions. This is a community of software programmers and website developers including Wrox book authors and readers. New member registration was closed in 2019. New posts were shut off and the site was archived into this static format as of October 1, 2020. If you require technical support for a Wrox book please contact http://hub.wiley.com
 
Old November 9th, 2006, 08:52 AM
Friend of Wrox
 
Join Date: Jan 2005
Posts: 1,525
Thanks: 0
Thanked 0 Times in 0 Posts
Send a message via ICQ to crmpicco Send a message via AIM to crmpicco Send a message via MSN to crmpicco Send a message via Yahoo to crmpicco
Default loop through a XML document and print out

Does anyone know of a way for me to loop through a XML document and print out the values to the screen with Perl?
i.e. print "Forename 1= $data->{name}->[$loopvar]->{forename}<br>"; (or something like that...)

Code:
#!/usr/bin/perl

use XML::Simple;

$xml = new XML::Simple;

# read the XML file
$data = $xml->XMLin("employees.xml");

print "Content-type: text/html\n\n";

print "Forename 1= $data->{name}->[0]->{forename}<br>";
print "Surname 1 = $data->{name}->[0]->{surname}<br>";
print "Surname 2 = $data->{name}->[1]->{forename}<br>";
print "Surname 2= $data->{name}->[1]->{surname}<br>";
=============

Entire XML Document:

Code:
<?xml version='1.0'?>
<employee>
        <name>
            <forename>John</forename>
            <surname>Doe</surname>
        </name>
        <age>
            <dob>10-02-1967</dob>
        </age>            
        <************>M</************>
        <department>
            <departmentname>Operations</departmentname>
            <title>Manager</title>
        </department>
        <name>
            <forename>Craig R.</forename>
            <surname>Morton</surname>
        </name>
        <age>
            <dob>05-03-1984</dob>
        </age>            
        <************>M</************>
        <department>
            <departmentname>Internet</departmentname>
            <title>Developer</title>
        </department>
</employee>
www.crmpicco.co.uk
www.ie7.com
__________________
_______________________
Ayrshire Minis - a Mini E-Community
http://www.ayrshireminis.com
http://www.crmpicco.co.uk
 
Old November 13th, 2006, 08:51 AM
Friend of Wrox
 
Join Date: Jan 2005
Posts: 1,525
Thanks: 0
Thanked 0 Times in 0 Posts
Send a message via ICQ to crmpicco Send a message via AIM to crmpicco Send a message via MSN to crmpicco Send a message via Yahoo to crmpicco
Default

can Perl not handle this type of XML structure?

www.crmpicco.co.uk
www.ie7.com





Similar Threads
Thread Thread Starter Forum Replies Last Post
how to print ms word document from command prompt? priya7.priya C# 0 October 4th, 2007 08:24 AM
get copies of document to print in System.Printing motconduong Windows Presentation Foundation 0 June 30th, 2007 11:08 AM
Print directory file names in a loop ypomonh XSLT 2 May 14th, 2007 05:47 AM
hasmorepages property of print document component ashkumar General .NET 0 July 28th, 2006 10:48 AM
Print Word document from Access Form ppenn Access VBA 2 December 14th, 2005 07:51 AM





Powered by vBulletin®
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Copyright (c) 2020 John Wiley & Sons, Inc.