2
HI、 DBIモジュールを使用してPerlでプログラムを作成しました。 CGIを使用してMySQLの出力を表示できますか？もしそうなら、私を助けてください。MySQLの出力をCGIで表示できますか？
プログラム：CPANで
#!/usr/bin/perl -w
use DBI;
print "Content-type:text/html\n\n";
$db_handle = DBI->connect("dbi:mysql:database=CYP1B1;host=localhost:192.168.3.93;")
or die "Couldn't connect to database: $DBI::errstr\n";
$sql = "SELECT * FROM BPCG";
$statement = $db_handle->prepare($sql)
or die "Couldn't prepare query '$sql': $DBI::errstr\n";
$statement->execute()
or die "Couldn't execute query '$sql': $DBI::errstr\n";
print "Location\tNucleotidechange\tAminoacidchange\n";
while(($Location,$Nucleotidechange,$Aminoacidchange)=$statement->fetchrow_array())
{
print "$Location $Nucleotidechange $Aminoacidchange \n";
}
$db_handle->disconnect();