1. ペット図鑑テーブルから、パラメータで指定された「番号」の情報を検索する。(select * from pet_list where bangou=?)
2. 検索された内容をすべて表示する。タイトルを”＜種類>のページ”と表示する。写真ファイル名は、イメージで表示する。
3. 【戻る】をクリックするとメニュー画面に移る。

#!/usr/bin/perl
#---------------
# program-ID:pet16.cgi
# auther    :tokuda
# date      :2002/02/05
#-----------------------
use CGI;
use DBI;

$query = new CGI;
$t0id = $query->param('ibango');

print "content-type: text/html\n\n";
#----------
$username="egi";
if($t0id){
       $dbh = DBI->connect("dbi:Pg:dbname=egi",$username)
       or die "cannot connect: ",$DBI->errstr();
       $iselect = "select bangou, animal, type, heigh, weight, chara, photo from pet_list where  bangou=?";
       $sth = $dbh->prepare($iselect)
       or die "cannot prepare: ",$dbh->errstr();
       $sth->execute($t0id) or die "cannot execute: ", $sth->errstr();
}
#-----------
print "＜HTML>\n";
print "＜HEAD>＜TITLE>select＜/TITLE>\n";
print "＜META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html;charset=x-euc-jp\">\n";
#print "＜META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html; charset=EUC-JP\">
#print "＜META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html;charset=ISO-2002-JP\">\n"
#print "＜META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html;charset=shift_JIS\">\n"
print "＜/HEAD>\n";
print "＜BODY  bgcolor=LINEN>\n";
#print "＜CENTER>\n";
print "＜H5>\n";
print "＜TABLE BORDER = 1  bgcolor=POWDERBLUE>\n";
if($t0id){ @row = $sth->fetchrow_array();  }
print "＜I>$row[2]のページ＜/I>\n";
print "＜P>\n";
print "＜TR BGCOLOR=>＜TH>番号＜/TH>＜TD>$row[0]＜/TD>＜/TR>\n";
print "＜TR BGCOLOR=>＜TH>動物種＜/TH>＜TD>$row[1]＜/TD>＜/TR>\n";
print "＜TR BGCOLOR=>＜TH>種類＜/TH>＜TD>$row[2]＜/TD>＜/TR>\n";
print "＜TR BGCOLOR=>＜TH>体高＜/TH>＜TD>$row[3]＜/TD>＜/TR>\n";
print "＜TR BGCOLOR=>＜TH>体重＜/TH>＜TD>$row[4]＜/TD>＜/TR>\n";
print "＜TR BGCOLOR=>＜TH>性格＜/TH>＜TD>$row[5]＜/TD>＜/TR>\n";
print "＜TR BGCOLOR=>＜TH>写真＜/TH>＜TD>$row[6]＜/TD>＜/TR>\n";
print "＜/TABLE>\n";
print "＜P>";
print "＜IMG SRC=\"../photo/$row[6]\">";
#print "＜IMG SRC=mimi2000-1.jpg>";
print "＜A HREF=\"./pet15.cgi\">戻る＜/A>";
#print "＜/CENTER>\n";
print "＜/BODY>\n";
print "＜/HTML>\n";