Paul Harwood [mailto:[EMAIL PROTECTED]
:
: I am trying to get the last element of the anonymous
: array below. Using $# I keep getting the 1st element
: (or so it seems anyway). What am I doing wrong?
:
: $server {TED0} = ['SERVER1', 'SERVER2', 'SERVER3'];
: push @{$server{TED0}}, "SERVER4";
: push @{$server{TED0}}, "SERVER5";
[snip]
Use -1 instead:
my %server;
$server {TED0} = ['SERVER1', 'SERVER2', 'SERVER3'];
push @{$server{TED0}}, "SERVER4";
push @{$server{TED0}}, "SERVER5";
print "\nFull array is: @{ $server{TED0} }\n";
my $last = $server{TED0}[-1];
print "\nThe last element is: $last \n";
__END__
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
