- or download this
print '<table boder="1"><tr>';
print map { "<td><img src='$icons->{$_}' alt='$alt->$icons->{$_}'></td
+>" } (@$times);
print "</tr><tr>";
...
print map { "<td>$conditions->{$_}</td>" } (@$times);
# ...
print '</tr></table>
- or download this
my @data;
foreach my $i (@$times) {
push @data, [
...
print "</tr>";
}
print "</table>";
- or download this
my $data = [];
foreach my $i (@$times) {
add_column( $data,
...
push @{$table->[$i]}, "<td>$_[$i]}</td>";
}
}