Shell Programming and Scripting

2009-02-18 00:00:11,734 [TP-Processor11] DEBUG RFRiskAssessmentController,(TP-Processor11:122) - Username: 01376128

2009-02-18 00:00:11,765 [TP-Processor11] DEBUG ResponseMessageParser,(TP-Processor11:214) - Error code:0 ErrorMsg:SESSIONID : 1:2857064


2009-02-18 00:00:11,765 [TP-Processor11] INFO  RiskXActionAPI,(TP-Processor11:59) - evaluateRisk: End-to-end time in millisecond 31

my %hash;
open(my $LOG, 'path/to/file') or die "$!";
LOOP1: while(<DATA>) {
   my $user;
   if (/Next State: risk_assessment$/) {
      LOOP2: while(<DATA>) {
         if (/Username:\s+(\S+)$/) {
            $user = $1;
            if (! exists $hash{$user}) {
               $hash{$user} = {SessionID => '', Time => 0 };
            }
         }
         else {
            next LOOP2;
         } 
         LOOP3: while(<DATA>) {
            if (/ErrorMsg:SESSIONID :\s+(\S+)$/) {
               $hash{$user}{SessionID} = $1;
               next LOOP3;
            }
            elsif (/evaluateRisk: End-to-end time in millisecond (\S+)$/) {
               $hash{$user}{Time} += $1;
               next LOOP1;
            }
         }
      }
   }
}
close ($LOG);
use Data::Dumper;
print Dumper \%hash;

The username is coming from here ---   Username: 01172275
if (/Username:\s+(\S+)$/) {
            $user = $1;

updateAttributes: XML Request [<POLICYREQ><MESSAGEID>1</MESSAGEID><CALLERID>4 - MLS - MLS: com.arcot.aok.web.controllers.rf.RFSyncClientDIDController|1:2594742</CALLERID><SESSIONID>1:2594742</SESSIONID><AUTHRESULT>UNSPECIFIED</AUTHRESULT><IDENTITY><USERID>01172275</USERID><GROUP>MLS</GROUP><SUBGROUP>SUBGROUP2</SUBGROUP></IDENTITY><LOCATION><IPADDRESS>208.36.8.182</IPADDRESS></LOCATION><DEVICEID </DEVICESIG></POLICYREQ>]

#$str=~/(?:.*<USERID>)(.*)(?:<\/USERID>.*$)/;
			#print $str;