Wrox Programmer Forums
Go Back   Wrox Programmer Forums > Open Source > Perl
| Search | Today's Posts | Mark Forums Read
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 20th, 2006, 12:19 PM
Friend of Wrox
Points: 8,019, Level: 38
Points: 8,019, Level: 38 Points: 8,019, Level: 38 Points: 8,019, Level: 38
Activity: 0%
Activity: 0% Activity: 0% Activity: 0%
 
Join Date: Jan 2005
Location: Mauchline, East Ayrshire, Scotland
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 count the number of nodes in an XML doc

Is there a way in Perl to count the number of employee nodes in an XML document?
Code:
<?xml version='1.0'?>
    <staff>
        <employee>
            ... other nodes in here ...
        </employee>
        <employee>
            ... other nodes in here ...
        </employee>
        <employee>
            ... other nodes in here ...  
        </employee>
        <employee>
            ... other nodes in here ...
        </employee>
        <employee>
            ... other nodes in here ...
        </employee>
    </staff>
www.crmpicco.co.uk
www.ie7.com
__________________
_______________________
Ayrshire Minis - a Mini E-Community
http://www.ayrshireminis.com
http://www.crmpicco.co.uk
 
Old November 28th, 2006, 08:46 AM
Registered User
 
Join Date: Nov 2006
Location: , , India.
Posts: 2
Thanks: 0
Thanked 0 Times in 0 Posts
Default

undef $/;
$Str=(open (IN,"<$ARGV[0]"))?<IN>:die "$!";
$Str=~s/(\n|\t)*//g;
@count=$Str=~/<employee>/g;
print scalar(@count);


 
Old December 8th, 2006, 08:29 AM
Friend of Wrox
Points: 8,019, Level: 38
Points: 8,019, Level: 38 Points: 8,019, Level: 38 Points: 8,019, Level: 38
Activity: 0%
Activity: 0% Activity: 0% Activity: 0%
 
Join Date: Jan 2005
Location: Mauchline, East Ayrshire, Scotland
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

thanks for that bluemin, here's another solution that worked:
Code:
#! /usr/bin/perl

# Craig R Morton
# Count number of nodes in an XML document
# Last_Edit: 08-Dec-2006

use warnings;
use strict;
use XML::Simple; # you will need to have this installed on your machine

# read the xml document 'employees.xml' as the input
my $xml = XMLin('employees.xml');

# get the number of nodes called 'employee'
my $count = @{$xml->{employee}}; 

print "We have $count employees\n";

www.crmpicco.co.uk
www.ie7.com
 
Old December 8th, 2006, 08:30 AM
Friend of Wrox
Points: 8,019, Level: 38
Points: 8,019, Level: 38 Points: 8,019, Level: 38 Points: 8,019, Level: 38
Activity: 0%
Activity: 0% Activity: 0% Activity: 0%
 
Join Date: Jan 2005
Location: Mauchline, East Ayrshire, Scotland
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

http://search.cpan.org/CPAN/authors/...le-2.16.tar.gz

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




Similar Threads
Thread Thread Starter Forum Replies Last Post
Using axis instead of count? Counting child nodes. dep XSLT 1 January 17th, 2007 11:27 AM
Count nodes based of if condition suri_1811 XSLT 1 December 7th, 2006 08:00 PM
Loop issue - with n number of same nodes.. ramesh.kumarm XSLT 3 March 8th, 2006 08:19 AM
count distinct nodes alexshiell XSLT 2 January 27th, 2005 11:19 AM
How to count total number of nodes in an xml file? nimesh XSLT 1 August 12th, 2004 03:26 AM





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