Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Re: Tally up the number of times each IP shows up in the file and load into HASH

by borisz (Canon)
on Jan 20, 2009 at 21:57 UTC ( #737697=note: print w/ replies, xml ) Need Help??


in reply to count the number of IP shows up in the file

Not sure if I understand what you want to do. But here is my try.  script.pl < path.csv

use strict; use warnings; my %h; while (<>) { my ( $k, @ips ) = split /\s+/; $k =~ s/(_.*)$//; $h{$k}{$_}++ for @ips; } for my $srv ( sort keys %h ) { for ( sort keys %{ $h{$srv} } ) { printf( "%10s %15s %6s\n", $srv, $_, $h{$srv}{$_} ); } }
__OUTPUT__ 11BT801 10.197.28.38 1 11BT801 10.197.5.82 2 11BT801 10.200.10.10 1 11BT801 10.200.10.11 1 11BT801 10.200.6.42 2 11BT801 10.200.6.50 1 11BT801 10.200.8.26 2 12GT601 10.100.7.14 1 12GT601 10.100.9.16 2 12GT601 10.160.9.16 1 12GT601 10.180.7.13 1 12GT601 10.197.27.36 1 12GT601 10.197.5.82 2 12GT601 10.200.10.10 1 12GT601 10.200.5.40 2
Boris


Comment on Re: Tally up the number of times each IP shows up in the file and load into HASH
Select or Download Code
Re^2: Tally up the number of times each IP shows up in the file and load into HASH
by sgowrish (Initiate) on Jan 21, 2009 at 01:22 UTC
    Thank you so much.....

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://737697]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (9)
As of 2014-07-22 21:51 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (129 votes), past polls