Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Octocat-spinner-32-eaf2f5

Cannot retrieve contributors at this time

file 42 lines (32 sloc) 0.981 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41
#!/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";

Something went wrong with that request. Please try again.