Perl/PerlでMySQLに接続するサンプルコード
の編集
Top
/
Perl
/
PerlでMySQLに接続するサンプルコード
[
トップ
] [
編集
|
差分
|
バックアップ
|
添付
|
リロード
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
]
-- 雛形とするページ --
PostgreSQL/template0とtemplate1の違いについて
#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)
タイムスタンプを変更しない
#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)
テキスト整形のルールを表示する
添付ファイル:
mysql_connect.pl.zip
582件
[
詳細
]