Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number

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 perusing the Monastery: (2)
As of 2016-02-08 04:44 GMT
Find Nodes?
    Voting Booth?

    How many photographs, souvenirs, artworks, trophies or other decorative objects are displayed in your home?

    Results (268 votes), past polls