Reading array location

[steady12345]

Greetings all,
I am working with a perl script and a module called IControl that gives me information about a Load Balancer

When I run my script and do a get_list() the value returned to $peer is ARRAY(0x2d7208c)

I don't know the next step for reading from that array location and was wondering if someone could guide me in the right direction

#!/usr/bin/perl
BEGIN { $ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0 } 
use SOAP::Lite;
use iControlTypeCast;
use MIME::Base64;
use myAuth ();
use vars qw($sUID $sPWD);
*sUID = \$myAuth::sUID;
*sPWD = \$myAuth::sPWD;

print "BEGIN TEST\n";
sub SOAP::Transport::HTTP::Client::get_basic_credentials {
print "In SOAP\n";  
return "$sUID" => "$sPWD";
}
$SystemInfo  = SOAP::Lite
  -> uri('urn:iControl:LocalLB/Pool')
  -> proxy("[URL unfurl="true"]https://myaddress.com/iControl/iControlPortal.cgi");[/URL]
$peeraddress = $SystemInfo->get_list();
$peer = $peeraddress->result;

print $peer;
print "\n";

 

[audiopro]

Just a guess here but as the fuinction is returning an array, try replacing

$peer = $peeraddress->result;
print $peer;

with

my @peer = $peeraddress->result;
print $peer[0];

and see what happens.

Keith

http://www.studiosoft.co.uk

 

[prex1]

[tt]$peer[/tt] is a reference to an array. You should be able to dereference it as follows:
access to a single element: [tt]$$peer[index][/tt]
access to the whole array (and no.of elements): [tt]@$peer[/tt]
last index of the array: [tt]$#$peer[/tt]

Franco

http://www.xcalcs.com

: Online engineering calculations

http://www.megamag.it

: Magnetic brakes for fun rides

http://www.levitans.com

: Air bearing pads

 

[steady12345]

Thanks All,
Yeah I finally got it figured out by doing the dereference. Thanks

Wally