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 回答日時： 2013/06/11 19:22

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

とありますが、プログラムからはデータベース名がlogin_data、テーブル名がtestと読めます。

この回答へのお礼

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

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

お礼日時：2013/06/12 13:35