|< 1 2 >| | 16 Einträge, 2 Seiten |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
my $COLMAXITEM = 3;
my $idx = 0;
my @rows = ();
my $maxcount = scalar @item - 1;
foreach my $it (@item)
{
push @cols, {IMAGESRC=> $it};
if(scalar @cols == $COLMAXITEM or $idx+1 == $maxcount)
{
push @rows, {COLS => [@cols]};
@cols = ();
}
$idx++;
}
|< 1 2 >| | 16 Einträge, 2 Seiten |