Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Re: splitting 2D array into chunks

by BillKSmith (Monsignor)
on Jun 21, 2021 at 20:21 UTC ( #11134131=note: print w/replies, xml ) Need Help??


in reply to splitting 2D array into chunks

I really do not understand your requirements. My best guess is you want to partition the array @arr1 according to the specification in the first column of array @a1. (and @arr2 according to the second column.) The 'end' indicies in @arr2 follow the math convention of 'start-at-one' rather than Perl's 'start-at-zero'. You are having a problem with the partitioning, not writing to files. The following code only does @arr1 and does not produce exactly what you expect. I hope you can use it as an example when you repost your question.
use strict; use warnings; my @arr1 = 'a' .. 'j'; my @al = ( # Arr1 Arr2 [ 3, 4 ], [ 5, 5 ], [ 6, 6 ], [ 8, 10 ], ); my $start = 0; my $end = 0; for my $i (0 .. $#al) { $end = $al[$i][0]-1; print @arr1[$start .. $end], "\n"; $start = $end+1; }

OUTPUT:

abc de f gh
Bill

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (4)
As of 2021-12-04 17:09 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    R or B?



    Results (30 votes). Check out past polls.

    Notices?