Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

Re: Shifting of 2D array slices

by davidrw (Prior)
on Dec 07, 2008 at 01:22 UTC ( #728625=note: print w/ replies, xml ) Need Help??

in reply to Shifting of 2D array slices

Besides the map solutions already posted, here's two others:
setup for both:

use Data::Dumper; my @bigarray = ( [ "123*jeff", "tortoise", "qwerty" ], [ "456*john", "parrot", "azerty" ], [ "789*jane", "budgie", "abcdef" ], ); print Dumper \@bigarray; # before ... print Dumper \@bigarray; # after
  • Using splice:
    splice @$_, 0, 1, split /\*/, $_->[0] for @bigarray;
  • Using shift and unshift:
    foreach my $arr ( @bigarray ){ my $item = shift @$arr; unshift @$arr, split /\*/, $item; }

Comment on Re: Shifting of 2D array slices
Select or Download Code

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://728625]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (12)
As of 2015-11-26 10:02 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (697 votes), past polls