How can I get the last and current element of an anonymous-array?

Question

How can I get the last and current element of an array?

Getting the current element of my array, seems pretty easy, if i get it via [$i]

print " Atm: ",$king->[$i]->{hit},

But how does this work for the element before? Is there some simple way to get it? Like [$i-1]?

" Before: ", $king->[$i-1]->{hit}, "\n";

Thanks in advance!

@Suic: but it seems clear the question is really asking for "previous element", not "last element" — ysth, Aug 19 '13 at 15:21
Echoing M42's comment, did you *try* using `[$i-1]`? If you did, you might be able to answer your own question. — ThisSuitIsBlackNot, Aug 19 '13 at 15:52
`print $array->[$i - 1] and die "die";` - always hate this kind of errors :\ — gaussblurinc, Aug 19 '13 at 19:04

score 1 · Answer 1 · answered Aug 19 '13 at 19:02

Answer is NO.

suppose, you have anonymous array.

my $numbers = [qw(1 2 3 4 5)]; # but who said that this array is anonymous? it has pretty-labeled variable, that give you access to his elements

# however, yes, this is anonymous array. maybe. think, that yes. 

print @{$numbers}; # print all elements of this anonymous array
print "\n next\n";

print @{$numbers}[0..$#{$numbers}]; # hm, still print all elements of this anonymous array?
print "\n next\n";

print $numbers->[$#$numbers]; # hm, print last element of this anonymous array?
print "\n next\n";

print ${$numbers}[-1]; # hm, really, print last element of this anonymous array?
print "\n next\n";

print $numbers->[-2]; # wow! print pre-last element!
print "\n next\n";

# here we want more difficult task: print element at $i position?
my $i = 0;
# hm, strange, but ok, print first element

print $numbers->[$i]; #really, work? please, check it!
print "\n next\n";

# print before element? really, strange, but ok. let's make...  shifting!
# maybe let's try simple -1 ?
print $numbers->[$i - 1]; # work? work? please, said, that this code work!
print "\n next\n";

@$numbers = @$numbers[map{$_ - 1}(0..$#{$numbers})]; #shifting elements.
print $numbers->[$i]; #print the same element, let's see, what happens
print "\n next\n";

score 0 · Answer 2 · answered Aug 19 '13 at 15:26

Use:

#!/usr/bin/perl -w
use strict; 

my @array = qw (1 2 3 4 5);

print "$array[0]\n"; # 1st element
print "$array[-1]\n"; # last element

Or you could do it by popping the last value of the array onto a new variable:

push @array, my $value = pop @array;

print "$value\n";

How can I get the last and current element of an anonymous-array?

2 Answers2