このエントリーをはてなブックマークに追加


PerlでMySQLに接続するサンプルコード

Perlを使用してPostgreSQLに接続するサンプルコードを以下に記します。


スポンサーリンク

使用した環境は以下の通りです。

  • CentOS release 6.3 (Final)
  • Perl v5.10.1
  • MySQL - 5.1.61

関連資料

PerlでMySQLにアクセスするために必要なモジュールをインストールします。

CentOSの場合は、rootユーザになり以下のコマンドでMySQLをアクセスするためのPerlモジュールをインストールすることができます。

yum -y install perl-DBI perl-DBD-MySQL

MySQLに接続し現在の日付を表示するサンプルコード

#!/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

上記のサンプルコードは、ホスト名、ユーザ名、パスワードを設定しています。
みなさんの環境にあう設定に変更してください。


スポンサーリンク


添付ファイル: filemysql_connect.pl.zip 210件 [詳細]

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2015-03-20 (金) 22:08:00 (1548d)