Re: 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

Comment on Re: Printing the last few elements of an array. Download Code

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]
Re: Re: Re: Printing the last few elements of an array. by dakkar (Hermit) on Dec 19, 2002 at 09:07 UTC
`@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]
Thanks dakkar by jonnyfolk (Vicar) on Dec 20, 2002 at 00:02 UTC
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]