- or download this
my %tab = ( abc => [4, 20], def => [9, 20000], ghi => [16, 200000] );
- or download this
#! /usr/bin/perl -w
...
} sort keys %tab
])
);
- or download this
<td rowspan="2">abc</td><td>4</td>
<td>20</td>
...
<td>20000</td>
<td rowspan="2">ghi</td><td>16</td>
<td>200000</td>
- or download this
my $flipflop = 0;
print $q->table( {-border=>"1"},
...
} map { $_, $_ } sort keys %tab
])
);