spalte formatieren mit perl

[Struppi]

habe eine tabelle mit

<table width="90%" height="186" border="2" cellpadding="0" cellspacing="0"><tr> <td><div align="center">1</div></td><td><div align="center">2</div></td><td><div align="center">3</div></td></tr><tr> <td><div align="center">4</div></td><td><div align="center">5</div></td><td><div align="center">6</div></td></tr></table>

Wozu die div's?

CSS:

td
{
text-align:center;
}

spart alle deine DIV's.
Sinnvoll ist hier auch die Verwendung des CGI Moduls.

use CGI;
print CGI::table( CGI::Tr(
CGI::td( [1..6])
));

wobei ich aber vermute das das eine Überschrift einer komplette Tabelle sein soll, also eher so:
print CGI::table(),
CGI::Tr(
CGI::th( [1..6])
);

mit einer while schleife

while (my @result = $sth->fetchrow_array) {                print qq {                                <tr>                 <td><div align="center">$result[1]</div></td>                <td><div align="center">$result[1]</div></td>                <td><div align="center">$result[1]</div></td>                </tr>                <tr>                 <td><div align="center">$result[1]</div></td>                <td><div align="center">$result[1]</div></td>                <td><div align="center">$result[1]</div></td>                </tr>        };}

das problem nun ist- das z.b datensatz 1 jeweils 3x in der selben spalte angezeigt wird.

Was meinst du mit Spalte?

Willst du das:

while (my @result = $sth->fetchrow_array) {
print CGI::Tr( CGI::tr( @result ));
}
print CGI::end_table();

ich möchte aber das jeweils in einer spalte der nächste datensatz steht.

D1 # D2 # D3

D4 # D5 # D6

Das versteh ich nicht.

Struppi.