Oracle ODSEE perl Ldap logparser
Perl Script to parse ODSEE ldap logs. #!/usr/bin/perl use Tie::IxHash; tie %db, Tie::IxHash; ($file) = @ARGV if @ARGV; $file = ‘access’ unless -f $file; open(IN, “$file”) or die; while () { ## for raw ldap log # [20/Nov/2007:20:55:43 -0500] conn=251299755 op=491 msgId=571 – RESULT err=0 tag=101 nentries=967 etime=0 notes=U #if (/conn=(\d+).*?notes=U/) { $db{“$1”} ++; } …