repetition operators: do {} five times... 1

[darkreaper00]

this:

($_=shift(@tony)) x5;

doesn't do what I want it to do: namely, go to the fifth value after the current one, and trash all the others. I know that this generally pertains to strings, but with perl being so intuitive-friendly, I'd like it to intuit me telling it to do something five times. You see what I'm trying to do, now tell me how to do it :c)

...And to answer before you ask, yes, i know I could write a for loop* to do that, but I want to know how to do it this way (as usual...), if I can.

* (or

$_=shift(@tony);
$_=shift(@tony);
$_=shift(@tony);
$_=shift(@tony);
$_=shift(@tony);

, even)


Thanks!

 

[justice41]

How about

$_ = (splice @tony, 0, 5)[-1];

jaa

 

[dchoulette]

Great idea justice41 !
I just look at splice documentation and I think you could even just do:

$_ = splice(@tony, 0, 5);

From perldoc -f splice:
[tt]
In list context, returns the elements removed from the array. In scalar context, returns the last element removed, or undef if no elements are removed
[/tt]