my $nff = new NffInterface; #Initializes some variables and starts a software. my $logid = $nff->loadLog($inputFile); #$inputfile is the logfile. my $filter1={type => "logcode", logcode => 0x1069}; my $fid1=$nff->createFilter($logid,$filter1); #Picks an index in the log my $filter2={type => "logcode", logcode => 0x108A}; my $fid2=$nff->createFilter($logid,$filter2); my $view=$nff-> createView([$fid1,$fid2]); #Creates an array of multiple filters on order of the particular logId. my ($obj,$obj1,$obj2,$tmp,$myc2i,$codetype); $myc2i=0; do{ $tmp=$nff->getNextLogFromView($view); #Iterates on filter indices and gets the next log in the view array. if($tmp ne -1){ if(getLogCode($tmp) eq 0x108A){ $codetype="0x108A"; #print $codetype; $obj1 = parse108A($tmp); #Defined below. Parses 108A logs. my @pns = keys(%{$obj1->{sectors}}); for(my $i=0;$i<$obj1->{numSectors};$i++){ #for each sector my $sector = $pns[$i]; my $currentSectorPower=0; #compute the cumulative Received power for(my $j=0;$j<$obj1->{sectors}->{$sector}->{numFingers};$j++){ $currentSectorPower=$currentSectorPower+ $obj1->{sectors}->{$sector}->{$j}->{c2i}; } $obj->{sectors}->{$sector}->{cumulativePower}=$currentSectorPower; $myc2i=$obj->{sectors}->{$sector}->{cumulativePower}; #print $myc2i; if(getLogCode($tmp) eq 0x1069){ $codetype="0x1069"; #print $codetype; $obj2 = parse1069($tmp); #Defined below. Parses out 1069 logs. for (my $j=0;$j<2;$j++){ for my $rxAgc0(%{$obj->{$j}}) { print "$rxAgc0 = $obj2->{$j}{$rxAgc0}\n"; #print Dumper $obj2; } print "\n"; } } } } while($tmp ne -1);