Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
tree: 6917430346
Fetching contributors…

Cannot retrieve contributors at this time

42 lines (32 sloc) 0.981 kB
#!/usr/bin/perl -w
use strict;
#
# Program to count perl monger groups by status.
#
$|++;
use XML::XPath;
my $xp = XML::XPath->new(filename => 'perl_mongers.xml')
|| die 'badness!!';
my @nodes = $xp->findnodes('/perl_mongers/group');
my %counts;
foreach my $node (@nodes) {
my $status = $node->findvalue('@status');
$counts{$status}++;
if ($status eq 'active') {
my $status = $node->findvalue('@status');
my $longitude = $node->findvalue('location/longitude/text()');
my $latitude = $node->findvalue('location/latitude/text()');
my $name = $node->findvalue('name/text()');
my $continent = $node->findvalue('location/continent/text()');
if ($continent) {
if (not $longitude) {
print "Longitude missing for $name\n";
} elsif (not $latitude) {
print "Latitude missing for $name\n";
}
}
}
}
my $tot;
print map { $tot += $counts{$_}; "$_ : $counts{$_}\n" } keys %counts;
print "\nTotal: $tot\n";
Jump to Line
Something went wrong with that request. Please try again.