RE: How to grep out contnts of a column

[Nazary, David]

I had to download and intsall Inline-Files-0.62 module and when I run
the below script you suggested I get:

Can't locate Filter/Util/Call.pm in @INC (@INC contains: C:/Perl/lib
C:/Perl/site/lib .) at C:/Perl/lib/Inline/Files.pm line 6.
BEGIN failed--compilation aborted at C:/Perl/lib/Inline/Files.pm line 6.
Compilation failed in require at C:\temp\get_clearlicense.pl line 16.
BEGIN failed--compilation aborted at C:\temp\get_clearlicense.pl line
16.

I guess I am missing a Filter module, but there are numerous on the
CPAN. Which module should I download next?

Thanks & Regards
David Nazary

-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On
Behalf Of zentara
Sent: Saturday, July 02, 2005 8:35 AM
To: beginners-cgi@perl.org
Subject: Re: How to grep out contnts of a column 

On Sat, 02 Jul 2005 11:29:08 -0400, zentara <[EMAIL PROTECTED]>
wrote:

Sorry, I had a glitch in sending, and the previous post was foobar'd.

Here is a way. I use Inline::Files to make it a standalone running
script.

#!/usr/bin/perl
use warnings;
use strict;
use Inline::Files;

my $max_clearcase_licenses;
my $clearcase_licenses_used;
my %groups;
my %groupc;

while(<GROUPS>){
    last if $_ =~ /END/ ;  #hack to get around eof in inline files
    my($user,$group) = split /\s+/, $_;
    $groups{$user} = $group;
    $groupc{$group} = 0;
  }

while (<CLEARCASE>) {
print $_ ;
 if ($_ =~ /Maximum active users allowed: (\d+)/) {
    $max_clearcase_licenses = $1;
     } 
     
 if ($_ =~ /Current active users: (\d+)/) {
    $clearcase_licenses_used = $1;
     }

 if ( $_ =~ /(.*)minutes(.*)/ ) {
    my ($user,undef,undef) = split /\s+/, $_;      
     $groupc{ $groups{$user} }++; 
     }

}
close CLEARCASE;

print "max_clearcase_licenses $max_clearcase_licenses\n";
print "clearcase_licenses_used $clearcase_licenses_used\n";

foreach my $key (keys %groupc){
  print "group $key -> $groupc{$key}\n";
}

__CLEARCASE__
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.

__GROUPS__
screl   apple
chowell mac
pgaray   pc
hhung   apple  
__END__



-- 
I'm not really a human, but I play one on earth.
http://zentara.net/japh.html

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>



--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>