Hi,
I codes in the while loop is too long. Can it be
written in different way?
Thanks.
sub display_helpdb{
my $server = $_[0];
my @results;
&sybase_connect("$server","master","sp_helpdb");
$dbh->dbsqlexec;
$dbh->dbresults;
@tbl_header = ("DB Name", "DB Size", "Owner",
"DBID", "Create Date", "Status");
print "<table border=1><tr>";
# contruct tbl colum header
map{print '<th>',$_,"</th>\n"}@tbl_header ;
print "</tr>\n";
while(@results = $dbh->dbnextrow){
print "<tr>
<td> $results[0] </td>
<td>$results[1]</td>
<td>$results[2]</td>
<td>$results[3]</td>
<td>$results[4]</td>
<td>$results[5]</td>
</tr>";
#is there a way to shortened the print statement above
#I'v tried this :
# map{print "\n<tr><td>",$_[0..5],"</td></tr>\n"} @a;
# but it does not work right.
}
print "</table>";
}#end sub
__________________________________________________
Do you Yahoo!?
New DSL Internet Access from SBC & Yahoo!
http://sbc.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
