lmutil - Copyright (c) 1989-2009 Flexera Software, Inc. All Rights Reserved.
Flexible License Manager status on Wed 1/2/2019 07:00

[Detecting lmgrd processes...]
License server status: 27000@unodecx80
    License file(s) on unodecx80: E:\Program Files (x86)\IBM\RationalRLKS\common\rational_server_perm.dat:E:\Program Files (x86)\IBM\RationalRLKS\common\rational_server_temp.dat:

 unodecx80: license server UP (MASTER) v11.10

Vendor daemon status (on unodecx80):

   ibmratl: UP v11.10
Feature usage info:


Users of ClearCase:  (Total of 10 licenses issued;  Total of 1 license in use)

  "ClearCase" v1.00000, vendor: rational
  floating license

    amlove unodecx86 WI_zfTVVG-n7Ph2jhkOo #u#amlove#u# (v1.0) (unodecx80/27000 615), start Wed 1/2 6:56 (linger: 1800)

Users of ADALangPack:  (Total of 1 license issued;  Total of 0 licenses in use)

The following was my code:

#!/usr/bin/perl
use strict;
use warnings;
my $mydebug1=1;
my $val="X";
my $k1="";
my $k2="";
my $k3="";
my $k4="";
my %metrics = ();
my $sysacc="";
my $origsys="";
my $product="";
my $day="";
my $date="";
my $hour="";
my $skip=1;
my $user="";
my $dum1="";
my $dum2="";
my $dum3="";
my $dum4="";
my $dum5="";
my $dum6="";
my $dum7="";
my $cnt=0;
my $found=0;
my $checkval="Users of";
my $str = "";
open (LICIN, "<C:\\SCCI\\scci_clearcase\\All_license_info_Jan2019_sample\.txt");
while ($str = <LICIN>) {
	chomp $str;
	if ($str =~ /^Flexible License/) {
		($dum1,$dum2,$dum3,$dum4,$dum5,$day,$date,$dum6) = split(/ /,$str,8);
		($hour,$dum1) = split(/:/,$dum6,2);
		next;
	}
	if ($str =~ /$checkval/) {
		if ($str =~ /Users of ClearCase/) {
			$str = <LICIN>;
			$str = <LICIN>;
			$str = <LICIN>;
			$str = <LICIN>;
			while ($str = <LICIN>) {
				chomp $str;
				last if ($str eq "");
				$str =~ s/^\s+//;		
				($user,$sysacc,$origsys,$dum1) = split(/ /,$str,4);
				$product="ClearCase";
				$metrics{$product}{$date} = $day;
				$metrics{$product}{$date}{$hour}{$user} = $val;
			}
		}
		next;
	}
}	
#
# print hash table
#
if ($mydebug1) {
	for $k1 (keys (%metrics)) {
		print "k1 = $k1 \n";
		for $k2 (keys(%{ $metrics{$k1} })) {
			print "k2 = $k2 \n";
			for $k3 (keys(%{ $metrics{$k1}{$k2} })) {
				print "k3 = $k3 \n";
				for $k4 (keys(%{ $metrics{$k1}{$k2}{$k3} })) {
					print "k4 = $k4 \t k4val = $metrics{$k1}{$k2}{$k3}{$k4}\n";
				}
			}
		}
	}
}