using pop a lot

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: using pop a lot by liz (Monsignor) on Oct 10, 2003 at 12:05 UTC
splice(): `splice @array,-5,5,();` [download] A directly executable example: `$ perl -e '@a=(1,2,3,4,5);splice @a,-2,2,();print "@a\n"' 1 2 3` [download] Liz	[reply] [d/l] [select]
Re: using pop a lot by Abigail-II (Bishop) on Oct 10, 2003 at 12:29 UTC
Or shorter: `splice @array => -5;` [download] Abigail	[reply] [d/l]
Re: Re: using pop a lot by liz (Monsignor) on Oct 10, 2003 at 12:57 UTC
Actually, it can still get shorter without splice(): `$#array -= 5;` [download] Liz Update: Although I would probably use Abigail-II's way, but without the fat comma: `splice @a,-5;` [download]	[reply] [d/l] [select]
Re: using pop a lot by Aragorn (Curate) on Oct 10, 2003 at 11:40 UTC
`pop @array for (1..5);` [download] Arjen	[reply] [d/l]
Re: using pop a lot by BrowserUk (Patriarch) on Oct 10, 2003 at 12:26 UTC
Just for variety... `perl -le"$,=' '; @a=(1..10); print 'start with ', scalar @a, ' delete 5 [', delete @a[-5..-1], '] leaves ', scalar @a" start with 10 delete 5 [ 6 7 8 9 10 ] leaves 5` [download] Examine what is said, not who speaks. "Efficiency is intelligent laziness." -David Dunham "Think for yourself!" - Abigail	[reply] [d/l]
Re: using pop a lot by hawtin (Prior) on Oct 10, 2003 at 12:07 UTC
Why do you want to do this? If you want to remove 5 elements without calling pop 5 times you can: `splice @array,$#array-4,5;` [download] (With the usual caveat about `$[`) Update: Typical, wait 20 minutes for an answer then two come along at once If you want to grab 5 items to do something with them you can also do: `my @poped = splice @array,$#array-4,5; my $val0 = $poped[0];` [download]	[reply] [d/l] [select]
Re: using pop a lot by delirium (Chaplain) on Oct 11, 2003 at 11:45 UTC
Personally, I wouldn't want to miss the opportunity to say "pop pop pop pop pop" somewhere in my code.... `eval $_.' @array' for qw(pop pop pop pop pop);`	[reply] [d/l]
Re^2: using pop a lot (pop, pop, pop..) by Aristotle (Chancellor) on Oct 13, 2003 at 11:40 UTC
`eval join(';', map $_.'@array', /pop/g) for q{low heat: pop, pop.. pop-pop, pop-pop.. pop! pop! pop, pop, pop. +.}, q{turning up the heat: fffffffpop!! poppoppoppoppop!!!};` [download] `%-D` Makeshifts last the longest.	[reply] [d/l]
Re: Re^2: using pop a lot by liz (Monsignor) on Oct 13, 2003 at 11:51 UTC
This is one of the few nodes in the Monastery that create an auditory illusion for me. Or in other words: I can hear them poppin'! ;-) Liz	[reply]