realdb1.cgi

#!/usr/local/bin/perl
use DBI;

#HTMLヘッダー部の出力
&output_header_html;

#HTMLデータ部の出力
&output_data_html;

#HTMLヘッダー部の出力サブルーチン
sub output_header_html
{
    print ("Content-type: text/html\n");
    print ("\n");
    print <<EOT;
    <HTML>
    <HEAD>
        <TITLE>Web DataBase</TITLE>
    </HEAD>
    <BODY>
    <H2>Webデータベース</H2>
    <HR>
EOT
}

#HTMLデータ部の出力サブルーチン
sub output_data_html
{
    
    $db = DBI->connect('DBI:mysql:データベース名:localhost','ユーザー名','パスワード');
    $sth = $db->prepare("SELECT * FROM zaiko WHERE code>=1001 AND code <=1004");
    $sth->execute();
    $num = $sth->rows();
    
    print ("<HR>\n");
    print ('検索結果');
    print ("<BR>\n");
    print ("<TABLE BORDER='1'>\n");
    print ("<TR>\n");
    print ("<TD>");
    print ('商品番号');
    print ("</TD>\n");
    print ("<TD>");
    print ('商品名');
    print ("</TD>\n");
    for( $i=0;$i<$num;$i++)
    {
        @str = $sth->fetchrow_array();
        print ("<TR>\n");
        print ("<TD>$str[0]</TD>\n");
        print ("<TD>$str[1]</TD>\n");
        print ("</TR>\n");
    }
    print ("</TABLE>\n");
    print ('以上');
    print ("\n");
    print ("<HR>\n");
    
    $db->disconnect;
}