in reply to Printing the last few elements of an array.

About 'the question you asked' in the second snippet: you got out a number, repeated 5 times, right?

This is because you wrote $line=@record, which means: assign to $line the number of elements in the array @record.

This happens because assigning to a scalar variables sets scalar context for the right-hand side of the assignment, and an array in scalar context evaluates to its lenght.

-- 
        dakkar - Mobilis in mobile

Replies are listed 'Best First'.
Re: Re: Printing the last few elements of an array.
by jonnyfolk (Vicar) on Dec 16, 2002 at 19:42 UTC
    Thanks dakkar - now I understand! Is there any way I could have phrased that to make the $count mechanism work?
[reply]
      @record=reverse @record;
my @record1;
my $count=0;
my $line;
while (($count<5) && ($line=$record[$count])) {
 push @record1,$line;
 $count++
}
@record1=reverse @record1;
print join ',',@record1;

      [download]

      The last reverse is to get the elements in the original order.

      Just promise me you won't really use this version, please? ;-)))

      -- 
        dakkar - Mobilis in mobile
[reply]
[d/l]
        I really appreciate this, dakkar - I understand what pain it must have caused you to write that. I do promise not to use it - but it's very useful for me to see how it works! Thank you.
[reply]

In Section Seekers of Perl Wisdom