Hi everyone;
One of our tools provides following output:
<<<<<<<<<<<<< cut >>>>>>>>>>>>
LICENSES:
Max-Users Expires Password [status]
62 none 3abbc829.67e2685f.02 [Valid]
Maximum active users allowed: 62
Current active users: 17
ACTIVE users:
User Priority Time-out in
screl none 29 minutes (at 11:24:17)
chowell none 29 minutes (at 11:23:58)
pgaray none 28 minutes (at 11:23:09)
hhung none 28 minutes (at 11:23:05)
License Usage Statistics:
0 licenses revoked since start of period 7/1/2005.
0 license requests denied.
0 active users bumped by preferred user.
<<<<<<<<<<<<<<<< cut >>>>>>>>>>>>>
Following is part of a script that pulls out Maximum and Current user.
# Get ClearCase license usage
open CLEARLICENSE, "clearlicense -product ClearCase |" or die "Can't run
clearlicense: $!\n";
while (<CLEARLICENSE>) {
print $_ ;
if ($_ =~ /Maximum active users allowed: (\d+)/) {
$max_clearcase_licenses = $1;
} elsif ($_ =~ /Current active users: (\d+)/) {
$clearcase_licenses_used = $1;
}
}
close CLEARLICENSE;
However, I also need to filter out all the usernames under "User" column
and match them against a file that has a group name assigned to each
user, then print out the total number of users for each group. How can I
do this?
Thanks a lot in advance
David Nazary
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
