Perl からMySqlに接続する

以下のサンプルは、インターネットのどこかに載っていたのをほとんどそのまま使用しています。（感謝）cgi　として動作するようになっているはずです。ユーザ名とパスワードは'root'としています。またデータベース名はstock_db、 　　テーブル名はstock としています。

---

#!/usr/bin/perl

use DBI;

$dbuser="root";
$dbpass="root";
$dbname="stock_db";
$sql="select * from stock";

$dsn = "DBI:mysql:$dbname";
$dsh = DBI -> connect ( $dsn, $dbuser, $dbpass , { RaiseError => 0 } );
$sth = $dsh->prepare($sql);
$sth->execute;
$num_rows = $sth->rows;

print "Content-type: text/html\n\n";

print <<HTML_HEAD;


HTML_HEAD

if ($dsh) {
    print "successfully connected to the database<br>\n";
} else {
    print "fail to connect to the database<br>\n";
}

print "number of records : $num_rows <br>\n";

for ($i=0; $i<$num_rows; $i++) {
    @a = $sth->fetchrow_array;
    print "code=$a[0], hiduke=$a[1] ,jikoku=$a[2] ,price=$a[3]<br>\n";
}

print <<HTML_TAIL;


HTML_TAIL

$sth->finish;
$dsh -> disconnect;

exit(0);

---