Ok, thanks guys for posting, I am posting from within my GoogleGroup
Account.
Ergo my comment...
let's not be critical and get down to the code!
the code I was asking about was ::
map { $_ = $$_[0] } @userlist;
I dont understand it fully but I got what I wanted to get done with
the following::.
my @mirapointMatrix = $obj->command_ok(qw/user list/, "","","");
my @accountIndex = map { $_ = $$_[0] } @mirapointMatrix;
foreach (@accountIndex)
{
my $capturedHandle = "$_";
my $quota = $obj->command(qw/quota get storage /, "user.
$capturedHandle", );
my @fullQuota = split(/ /,$quota); #split result on special spaced
chars
if ( $fullQuota[1] == 0 )
{
my @accountPOC = $obj->command(qw/user list/,
"$capturedHandle","","");
my @accountOwner = map { $_ = $$_[1] } @accountPOC;
print "Email address :: $capturedHandle has an $fullQuota[1] active
quota.\n";
print "The above analyzed account is owned by $accountOwner[0]\n";
print "total email activity for this account is :: $quota\n\n";
}
}
Any thoughts or guru insight ? thanks
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
