on Tue, 07 May 2002 05:04:56 GMT, [EMAIL PROTECTED]
(Melissa Cama) wrote:
> [...]
> From this i need to extract "just" the user names and place them
> into an external file. How do I go about this?
#! perl -w
use strict;
my @users;
open (IN, "particular.exe |") or die "Cannot pipe: $!";
while (<IN>) {
last if /^ACTIVE users:$/;
}
while (<IN>) {
last unless /\s+(\w+)\s+/;
push @users, $1 unless $1 eq 'User';
}
close(IN);
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
