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>


Reply via email to