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

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?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (7)
As of 2014-12-25 14:23 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (160 votes), past polls