Help for this page

Select Code to Download


  1. or download this
    my %IP = (  # create and initialize
    '198.144.186.184' => {
...
$IP{$captured_IP}{count}++;
...
# print structure -- see perldsc
  2. or download this
    use Regexp::Common qw(net);
...
...
$IP{$break_in_ip}{domain} = $break_in_domain;
$IP{$break_in_ip}{count}++;
...