1. ペット情報テーブルから、すべての「番号」、「動物種」、「種類」を検索する。
   （select bangou, animal, type from pet_list）
2. 検索された内容を一覧表として表示する。
3. 表示された一覧表から「番号」を一つ選択すると（クリックすると）、ペット図鑑更新プログラム（pet42.cgi）に移る。その際、選択された番号をパラメータとして渡す。
4. 新規ボタンをクリックすると、ペット図鑑追加プログラム（pet43.cgi）に移る。
5. 【戻る】をクリックするとメニューに移る。

#!/usr/bin/perl
#-------------------
#program-ID:pet41.cgi
#auther    :murakami
#date      :2002/1/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 bangou, animal, type from pet_list order by bangou";
$sth = $dbh->prepare($iSelect)
	or die "Cannot prepare: ", $dbh->errstr();
$sth->execute() or die "Cannot execute: ", $sth->errstr();
#--------------
print "＜html>\n";
print "＜head>＜title>select＜/title>\n";
print "＜META HTTP-EQUIV=\"Cntent-Type\" CONTENT=\"text/html;charset=EUC-JP\">\n";
print "＜/head>\n";
print "＜body bgcolor =LINEN>\n";
print "＜center>\n";
print "＜h4>\n";
print "ペット図鑑テーブルの管理 ＜hr>\n";
print "訂正する番号をクリックして下さい。\n";
print "＜p>\n";
print "＜table border = 1 bgcolor =POWDERBLUE>\n";
print "＜tr bgcolor =SKYBLUE>";
print "＜th>番号";
print "＜th>動物種";
print "＜th>種類";
print "＜/tr>\n";
print "＜br>\n";

while(@row = $sth->fetchrow_array() ){
	print "＜tr>";
	print "＜td>＜a href=./pet42.cgi?ibangou=$row[0]>$row[0]＜/a>＜/td>";
	print "＜td>$row[1]＜/td>";
	print "＜td>$row[2]＜/td>";
	print "＜/tr>\n";
}

print "＜/table>\n";
print "＜p>\n";
print "＜a href=\"./pet43.cgi\">新規追加 ＜/A>\n";
print "＜p>\n";
print "＜a href=http://myouga.cs.ube-c.ac.jp/~egi/pet/index.html>もどる＜/a>\n";
print "＜/center>\n";
print "＜/body>\n";
print "＜/html>\n";