#navi(../)
* PerlでMySQLに接続するサンプルコード [#i644e2a6]
Perlを使用してPostgreSQLに接続するサンプルコードを以下に記します。~
#contents
#htmlinsertpcsp(db-top.html,db-sp.html)
使用した環境は以下の通りです。
- CentOS release 6.3 (Final)
- Perl v5.10.1
- MySQL - 5.1.61
* 関連資料 [#s5921623]
-[[PerlでMySQLを使用するためにDBI,DBDをインストールする・CentOS>Perl/MySQLを使用するためにDBI,DBDをインストールする・CentOS]]
* PerlでMySQLにアクセスするために必要なモジュールをインストールします。 [#x6260094]
CentOSの場合は、rootユーザになり以下のコマンドでMySQLをアクセスするためのPerlモジュールをインストールすることができます。
yum -y install perl-DBI perl-DBD-MySQL
* MySQLに接続し現在の日付を表示するサンプルコード [#xb0f6436]
#ref(mysql_connect.pl.zip)
#!/usr/bin/perl
use DBI;
# MySQL
our $DB_NAME = "mysql";
our $DB_USER = "root";
our $DB_PASS = "sakura";
our $DB_HOST = "localhost";
our $DB_PORT = "3306";
my $dbh = DBI->connect("dbi:mysql:dbname=$DB_NAME;host=$DB_HOST;port=$DB_PORT","$DB_USER","$DB_PASS") or die "$!\n Error: failed to connect to DB.\n";
my $sth = $dbh->prepare("SELECT now();");
$sth->execute();
while (my $ary_ref = $sth->fetchrow_arrayref) {
my ($row) = @$ary_ref;
print $row , "\n";
}
$sth->finish;
$dbh->disconnect;
- 実行結果
上記のPerlスクリプトを実行した結果です。
$ ./mysql_connect.pl
2012-10-08 00:48:46
上記のサンプルコードは、ホスト名、ユーザ名、パスワードを設定しています。~
みなさんの環境にあう設定に変更してください。
#htmlinsertpcsp(db-btm.html,db-sp.html)