Perl fetch_all

Deze vraag gaat waarschijnlijk over CGI


Ik heb een vraag over het fetchen van data uit een database met Perl. Ik heb de volgende code, met de volgende querie:

my $sth = $dbh->prepare( "SELECT cyto37k.name, cyto37k.chrom, chromStart, chromEnd
FROM cyto37k, test37k
WHERE cyto37k.name = test37k.name
AND a>1
ORDER BY cyto37k.name");

$sth->execute();

while( my ( $name, $chrom) = $sth->fetchrow_array )
{
print "$name \t $chrom\n";
}

Wat ik nu wil is dat de data niet geprint wordt, maar opgeslagen wordt in een soort tabelvorm. Dus:
regel 1: name, chrom
regel 2: name, chrom
regel 3: name, chrom

En dan wil ik ook weten hoe ik die data later weer kan benaderen. Dus dat ik alleen regel 2 name en chrom kan selecteren. Kan iemand me daarbij helpen?

Als ik je kon helpen zou ik het zeggen maar ik ben niet zo thuis in perl :P

my $sth = $dbh->prepare( "SELECT cyto37k.name, cyto37k.chrom, chromStart, chromEnd
FROM cyto37k, test37k
WHERE cyto37k.name = test37k.name
AND a>1
ORDER BY cyto37k.name");
$i-0;
$sth->execute();

while( my ( $name, $chrom) = $sth->fetchrow_array )
{
$i++;
if($i==2){
$onthoud="$name \t $chrom\n";
}
print "$name \t $chrom\n";
}

onee, hij moet dan zo:

my $sth = $dbh->prepare( "SELECT cyto37k.name, cyto37k.chrom, chromStart, chromEnd
FROM cyto37k, test37k
WHERE cyto37k.name = test37k.name
AND a>1
ORDER BY cyto37k.name");
$i-0;
$sth->execute();
print "<table>";
while( my ( $name, $chrom) = $sth->fetchrow_array )
{
$i++;
$onthoud="$name \t $chrom\n";
print "<tr><td>$i<td></td><td>$name</td> \t $chrom</td></tr>\n";
}
print "</table>";

bij mijn bovenste code onthoud ik regel 2, en bij de onderste maak ik er een tabel van
wat ook nog kan is dat je de data weer opslaat in een array.