Fellow monks, I have pondered, read, rewritten, (and consumed a couple pints) in the process for enlightenment; I now ask for divine intervention.

My basic goal is to take a source and destination IP address pair, count the occurences of destination IPs, and insert into a database along the line of "srcIP, dstIP, visit_count".
The trouble I have is counting the occurences. =(

My thoughts (at this point) look like: 
%hash0 = ( $srcIP => \%hash1 );
%hash1 = ( $dstIP => $count );

[download]
Now for the code snippet (which only counts accesses at the moment): 
foreach $entry (@entries) {
  $info = '(some).*(snazzy).*(regexp)';
  ($time,$src,$dst) = ($1,$2,$3) if $entry =~ /$info/;
  $src =~ s/SRC=//g;
  $dst =~ s/DST=//g;

  %ips = ( $src => "$dst");
  foreach $ws (keys(%ips)) {
    push @ips, $ips{$ws};
    #%visit_count = ( $src => $cnt );
    #%src_dst_cnt = ( $ws => \$visit_count );
  }
}

$count{$_}++ for @ips;
print "$_\t visits: $count{$_}\n" for (keys(%count));
return @ips;

[download]
I have left 2 commented lines in the 'foreach' loop, which hopefully illustrate my thought process.

BTW: Cheers for counting ideas!

In reply to Counting Occurences, (hash referencing another hash) by penguinfuz

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.