http://www.perlmonks.org?node_id=319257


in reply to Summarizing an array of IP's

my %h;
/^(\d+\.\d+\.\d+)/ and ++$h{$1} for <DATA>;
print "$_: $h{$_} nodes\n" for sort keys %h;

__DATA__
10.0.0.1
10.0.0.2
10.0.0.3
192.168.1.5
192.168.1.6
192.168.10.3
192.168.10.4
192.168.10.5

[download]

-- Mike

--
XML::Simpler does not require XML::Parser or a SAX parser. It does require File::Slurp.
-- grantm, perldoc XML::Simpler

In Section Seekers of Perl Wisdom