Kevin Reid wrote:
>
> sub rotate { unshift @_, splice @_, shift @_; return @_ }
$ perl -le'
sub rotate { unshift @_, splice @_, shift @_; return @_ }
@x = qw/a b c d e f/;
print "@x";
print "@{[rotate @x]}";
'
a b c d e f
b c d e f
Doesn't shift() do pretty much the same thing? :-)
John
--
use Perl;
program
fulfillment
