Splitting an array into multiple HTML table rows

[mikeirw]

I'm having trouble coming up with a sane way of splitting the contents of an array into multiple HTML table rows. I've got a couple of constants defined, NUM_CELLS => 12 and NUM_COL => 3. The array, of course, contains twelve elements. The problem I'm having is figuring out how to get those twelve elements split into four table rows. The relevant code that I have so far is something like this:

use CGI qw/ *table *Tr /;
use constant NUM_CELLS => 12;
use constant NUM_COL   => 3;

sub fill_table {
    my @array = read_db;
    my @td;

    push @td, $cgi->start_Tr();
    foreach ( @array[ 0 .. NUM_COL - 1 ] ) {
        push @td, $cgi->td($_);
    }
    push @td, $cgi->end_Tr;
    return @td;
}

So, I'm getting the first three elements into the first row, but after that I'm stuck with coming up with a way to get the rest of the table filled out. I'd appreciate any ideas from fellow monks,

[BrowserUk]

Take a look at the replies to simple column/row counter this recent question on the same subject.

---

Cor! Like yer ring! ... HALO dammit! ... 'Ave it yer way! Hal-lo, Mister la-de-da. ... Like yer ring!

[jeffa]

How about something like this:

use strict;
use CGI qw(:standard);

my @array = (0..11);
my $max = 4;
my ($i,$j) = (0,0);

my $tab;
for (@array) {
   push @{$tab->[$j]},$_;
   $j++ unless ++$i % $max;
}

print table(map{ Tr(td $_)} @$tab);

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

[mirod]

It's funny, I was just reading the description of XML-Filter-TableWrapper just before I read your question. Wouldn't it solve your problem?

[fglock]

print "<tr><td>",
      join ("</td><td>", splice (@array, 0, NUM_COL) ),
      "</td></tr>\n" while @array;

note:  splice eats up the array.

[merlyn]

We just covered this a few days ago. You should look into using Super Search and friends to keep us from answering the same things repeatedly.

-- Randal L. Schwartz, Perl hacker

[mikeirw]

My apologies, Mr. Schwartz. I actually did search the site for an answer, but I guess I wasn't looking in the right places. Anyway, thanks for the link.