1 use DBI; 2 3 print "Content-type: text/html\n\n"; 4 print "Query Result (Perl CGI)\n"; 5 print "

Query Result (Perl CGI)

\n"; 6 7 my $dbh = DBI->connect(eval{require '/iptu/Chapter3/perl/DBI.cfg'}) 8 or &error("connect() : $DBI::errstr"); 9 my $sth = $dbh->prepare("SELECT ITNO,ITCAT,ITDESC,ITPRIC,ITDATE " . 10 "FROM IPTULIB.ITEM WHERE ITNO='" . 11 substr($ENV{'QUERY_STRING'}, 4, 5) . "'") 12 or &error("prepare() : $DBI::errstr"); 13 $sth->execute() 14 or &error("execute() : $DBI::errstr"); 15 my ($ITNO,$ITCAT,$ITDESC,$ITPRIC,$ITDATE); 16 $sth->bind_columns(undef,\($ITNO,$ITCAT,$ITDESC,$ITPRIC,$ITDATE)); 17 18 if ($sth->fetch()) { 19 print "

\n";
  20   print "Item Number : $ITNO\n";
  21   print "Category    : $ITCAT\n";
  22   print "Description : $ITDESC\n";
  23   print "Price       : $ITPRIC\n";
  24   print "Date        : $ITDATE\n";
  25   print "

\n"; 26 } else { 27 print "

Item not found. (KEY=" . 28 substr($ENV{'QUERY_STRING'}, 4, 5) . ")

\n"; 29 } 30 print "Return"; 31 print ""; 32 $sth->finish; 33 $dbh->disconnect; 34 35 exit; 36 37 sub error{ 38 print "

error

\n"; 39 print "

$_[0]

\n"; 40 print ""; 41 exit (0); 42 }