#!/usr/bin/perl

$log = "/home/tsec/prototype/logs/extractedlogs/cowrieresult.log";

open(DATA, $log) or die "Can't open '$log': $!";

sub tester(){

while(<DATA>){
        if (/New connection: ([\d\.]+):(\d+)/){
                ($ip,$port) = ($1,$2);
                next;
        }
        chomp;
        if (/login attempt\s+\[(.*)\]\s+(\w+)$/){
                ($user_pass,$status) = ($1,$2);
                $HONEY{$ip}{$port}{$status}{$user_pass} +=1;
                print "DEBUG: Add ip=$ip:$port $status $user_pass\n";
        }
}

for my $ip (keys %HONEY){
        for my $port (keys %{$HONEY{$ip}}){
                for my $user (keys %{$HONEY{$ip}{$port}}){
                        for my $status (keys %{$HONEY{$ip}{$port}}){
                                for my $user_pass (keys %{$HONEY{$ip}{$port}{$status}}){
                                        $freq = $HONEY{$ip}{$port}{$status}{$user_pass};
                                        push(@DATA, "$port,$status,$freq") ;
                                }
                        }
                }
        }
}

for my $data (sort @DATA){
        print $data . "\n";
}


}


##</code><code>##

Variable "@DATA" is not imported at ./test2.prg line 31.
Variable "@DATA" is not imported at ./test2.prg line 38.
Global symbol "$log" requires explicit package name at ./test2.prg line 6.
Global symbol "$log" requires explicit package name at ./test2.prg line 8.
Global symbol "$log" requires explicit package name at ./test2.prg line 8.
Global symbol "$ip" requires explicit package name at ./test2.prg line 14.
Global symbol "$port" requires explicit package name at ./test2.prg line 14.
Global symbol "$user_pass" requires explicit package name at ./test2.prg line 19.
Global symbol "$status" requires explicit package name at ./test2.prg line 19.
Global symbol "%HONEY" requires explicit package name at ./test2.prg line 20.
Global symbol "$ip" requires explicit package name at ./test2.prg line 20.
Global symbol "$port" requires explicit package name at ./test2.prg line 20.
Global symbol "$status" requires explicit package name at ./test2.prg line 20.
Global symbol "$user_pass" requires explicit package name at ./test2.prg line 20.
Global symbol "$ip" requires explicit package name at ./test2.prg line 21.
Global symbol "$port" requires explicit package name at ./test2.prg line 21.
Global symbol "$status" requires explicit package name at ./test2.prg line 21.
Global symbol "$user_pass" requires explicit package name at ./test2.prg line 21.
Global symbol "%HONEY" requires explicit package name at ./test2.prg line 25.
Global symbol "%HONEY" requires explicit package name at ./test2.prg line 26.
Global symbol "%HONEY" requires explicit package name at ./test2.prg line 27.
Global symbol "%HONEY" requires explicit package name at ./test2.prg line 28.
Global symbol "%HONEY" requires explicit package name at ./test2.prg line 29.
Global symbol "$freq" requires explicit package name at ./test2.prg line 30.
Global symbol "%HONEY" requires explicit package name at ./test2.prg line 30.
Global symbol "@DATA" requires explicit package name at ./test2.prg line 31.
Global symbol "$freq" requires explicit package name at ./test2.prg line 31.
Global symbol "@DATA" requires explicit package name at ./test2.prg line 38.
Execution of ./test2.prg aborted due to compilation errors.