ActivePerl を使用して MySQL に

質問

すいません、初心者です。

ActivePerl を使用して MySQL にアクセスしたいです。
windows7 64bit にActivePerlとMySQLを入れ込みました。
MySQLにアクセスするためのユーザー名やパスワードは　root です。

login_data　というテーブルを適当作成しました。

実際にアクセスしてみるには、どのようなコードを書けばいいでしょうか？

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
use strict;
use warnings;

# エラーをブラウザに表示
use CGI::Carp qw(fatalsToBrowser);

use utf8;
binmode STDIN, ':encoding(UTF-8)';
binmode STDOUT, ':encoding(UTF-8)';
binmode STDERR, ':encoding(UTF-8)';
use Encode;
use DBI;

# プログラム開始

# ユーザ名とパスワード
my $user = 'root';
my $pass = 'root';

#データベースへ接続
my $db = DBI->connect('DBI:MySQL:localhost:login_data', $user, $pass,);
if ( ! $db ){
print "エラー： $db->err $db->errstr\n";
}

# 命令
my $sth = $db->prepare( "select * from test" );

# 実行
$sth->execute;

# 出力
while( my @row = $sth->fetchrow_array ){
print "@row\n";
}

#データベースから切断
$db->disconnect;

__END__

回答No.1

hirotn · ベストアンサー

＞login_data　というテーブルを適当作成しました。
とありますが、プログラムからはデータベース名がlogin_data、テーブル名がtestと読めます。

お礼

解答ありがとうございました。

プログラムを変更してもう一度実行しましたが、未だうまく動かせません。