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

#!/usr/bin/perl
#---------------
# program-ID:pet12.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 banngo, name, petname, pet_info.type, sex, owner, birthday, pet_info.photo, comment, pet_list.type, chara from pet_info, pet_list where  pet_info.type = pet_list.bangou and banngo=?";
       $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 "＜/HEAD>\n";
print "＜BODY BGCOLOR=LINEN >\n";
#print "＜CENTER>\n";
print "＜H5>\n";
print "＜TABLE BORDER = 1 BGCOLOR=\"#98FBBB\">\n";
if($t0id){ @row = $sth->fetchrow_array();  }
print "＜I>$row[1]のページ＜/I>\n";
print "＜P>\n";
print "＜TR>＜TH>番号＜/TH>＜TD>$row[0]＜/TD>＜/TR>\n";
print "＜TR>＜TH>名前＜/TH>＜TD>$row[1]＜/TD>＜/TR>\n";
print "＜TR>＜TH>愛称＜/TH>＜TD>$row[2]＜/TD>＜/TR>\n";
print "＜TR>＜TH>種類＜/TH>＜TD>$row[3]＜/TD>＜/TR>\n";
print "＜TR>＜TH>性別＜/TH>＜TD>$row[4]＜/TD>＜/TR>\n";
print "＜TR>＜TH>飼い主＜/TH>＜TD>$row[5]＜/TD>＜/TR>\n";
print "＜TR>＜TH>誕生日＜/TH>＜TD>$row[6]＜/TD>＜/TR>\n";
print "＜TR>＜TH>飼い主のコメント＜/TH>＜TD>$row[8]＜/TD>＜/TR>\n";
print "＜TR BGCOLOR=POWDERBLUE>＜TH>動物種の種類＜/TH>＜TD>$row[9]＜/TD>＜/TR>\n";
print "＜TR BGCOLOR=POWDERBLUE>＜TH>性格＜/TH>＜TD>$row[10]＜/TD>＜/TR>\n";
print "＜/TABLE>\n";
print "＜P>";
print "＜IMG SRC=\"../photo/$row[7]\">";
#print "＜IMG SRC=mimi2000-1.jpg>";
print "＜A HREF=\"./pet11.cgi\">戻る＜/A>";
#print "＜/CENTER>\n";
print "＜/BODY>\n";
print "＜/HTML>\n";