86 |
my $sth = $dbh->prepare( $sql ); |
my $sth = $dbh->prepare( $sql ); |
87 |
$sth->execute( @data ); |
$sth->execute( @data ); |
88 |
$t = time() - $t; |
$t = time() - $t; |
89 |
print qq|$t<table><tr><th>|, join(qq|</th><th>|, @cols), qq|</th></tr>|; |
print qq|<code>$sql<code>|; |
90 |
|
print qq|<table><tr><th>|, join(qq|</th><th>|, @cols), qq|</th></tr>|; |
91 |
while ( my @row = $sth->fetchrow_array ) { |
while ( my @row = $sth->fetchrow_array ) { |
92 |
my $n = shift @row; |
my $n = shift @row; |
93 |
$n = 'NULL' unless defined $n; |
$n = 'NULL' unless defined $n; |
94 |
print qq|<tr><td><a href="#">$n</a></td><td>|, join(qq|</td><td>|, @row), qq|</td></tr>|; |
print qq|<tr><td><a href="#">$n</a></td><td>|, join(qq|</td><td>|, @row), qq|</td></tr>|; |
95 |
} |
} |
96 |
print qq|</table>|; |
print qq|</table>|; |
97 |
print qq|<code>$sql</code>|; |
print $sth->rows, qq| rows in $t s|; |
98 |
exit; |
exit; |
99 |
} |
} |
100 |
|
|