1. ペット情報テーブルから、すべての「番号」、「愛称」、「種類」、「飼い主名」を検索する。
   (select banngo, petname, type, owner from pet_info)
2. 検索された内容を一覧表として表示する。
3. 表示された一覧表から「番号」を一つ選択する（クリックする）と次の処理（pet14.cgi）に移る。
   その際、選択された番号をパラメータとして渡す。
4. 【戻る】をクリックするとメニュー画面に移る。

#!/usr/bin/perl
#---------------
# program-ID:pet13.cgi
# auther    :tokuda
# date      :2002/01/22	
#-----------------------	
use CGI;	
use DBI;	

#--------------
$username="egi";
$dbh = DBI->connect("dbi:Pg:dbname=egi",$username)
  or die "cannot connect: " , $DBI->errstr;
print "content-type: text/html\n\n";
#$iselect = "select bango, name, type.pet_list, owner from pet_list, pet_info
#            where type.pet_info = bangou";
$iselect = "select banngo, name, type, owner from pet_info order by banngo ";
$sth =$dbh->prepare($iselect)
         or die "cannot prepare: " , $dbh->errstr();
$sth->execute() or die "cannot execute: " , $sth->errstr();
#-------------
print "＜HTML>\n";
print "＜HEAD>＜TITLE>＜/TITLE>\n";
print "＜META HTTP-EQUIV=\"content-type\" CONTENT=\"text/html;charset=EUC-JP\">\n";
print "＜/HEAD>\n";
print "＜BODY BGCOLOR=LINEN >\n";
print "＜CENTER>\n";
print "ペット情報の検索\n";
print "＜HR>\n";
print "＜H4>\n";
print "表示したいペット番号をクリックして下さい。\n";
print "＜P>\n";
print "＜TABLE BORDER = 1  BGCOLOR=#98FBBB>\n";
print "＜TR>";
print "＜TH>番号＜/TH>";
print "＜TH>愛称＜/TH>";
print "＜TH>種類＜/TH>";
print "＜TH>飼い主＜/TH>";
print "＜/TR>\n";
print "＜br>\n";

while(@row = $sth->fetchrow_array() ){
      print "＜TR>";
      print "＜TD>＜A HREF=./pet14.cgi?ibango=$row[0]>$row[0]＜/A>＜/TD>";
      print "＜TD>$row[1]＜/TD>";
      print "＜TD>$row[2]＜/TD>";
      print "＜TD>$row[3]＜/TD>";
      print "＜/TR>\n";

}

print "＜/TABLE>\n";
print "＜P>\n";
print "＜P>\n";
print "＜A HREF=../index.html>もどる\n";
print "＜/CENTER>\n";
print "＜/BODY>\n";
print "＜/HTML>\n";