このWebサイト ひつじ帳 は、管理者がWEB関連の技術をまとめた備忘録サイトです。 Linux,CentOS,PHP,MySQL,Blogger,JavaScript,CSS について記録しています。

CentOS-5/MySQL-5/接続確認

[ CentOS/MySQL ]

PHPからMySQLへ接続確認

以下の内容を mysqltest.php に書いてアクセスして下さい。

設定したユーザ名とパスワードを記述すること

<?php
//■ MySQL接続確認

// ユーザ名
$user = '';
// パスワード
$pass = '';
?>
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
<title>接続確認 ( MySQL-PHP )</title>
</head>
<body>
<h1>MySQL-PHP 接続確認</h1>
<?php
if( $db = mysql_connect( 'localhost', $user, $pass ) ){
        echo "<p>\n";
        echo "<div>MySQL 接続結果 = 成功</div>\n";
        echo "<div>MySQL バージョン = ".mysql_get_server_info($db)."</div>\n";
        echo "<div>MySQL クライアントバージョン = ".mysql_get_client_info()."</div>\n";
        echo "</p>\n";
        // DB一覧表示
        if( $query = mysql_query( 'show databases;' ) ){
                echo "<p>\n<div>[データベース一覧]</div>\n";
                while($data = mysql_fetch_assoc($query)){
                        echo "<div>".$data['Database']."</div>\n";
                }
                echo "</p>\n";
        }
        mysql_close($db);
}
else{ echo "<p>connect = 失敗</p>\n"; }
?>
</body>
</html>

PerlからMySQLへ接続確認

perl-DBI perl-DBD-MySQL のインストール確認


[root@linux ~]# rpm -qa | grep DBI
perl-DBI-1.52-1.fc6 ←■ 表示されていればインストール済
[root@linux ~]# rpm -qa | grep DBD
perl-DBD-MySQL-3.0007-1.fc6 ←■ 表示されていればインストール済
[root@linux ~]#

perl-DBI perl-DBD-MySQL インストール(インストールされていない場合)


[root@linux ~]# yum install perl-DBI ←■ yum でインストール
[root@linux ~]#
[root@linux ~]# yum install perl-DBD-MySQL ←■ yum インストール
[root@linux ~]#

以下の内容を mysqltest.cgi に書いてアクセスして下さい

設定したユーザ名とパスワードを記述すること

#! /usr/bin/perl

# ユーザ名
$user = "";
# パスワード
$passwd = "";
# データベース名
$dbname = "mysql";

use DBI;
if( $db = DBI->connect("DBI:mysql:$dbname;host=localhost", $user, $passwd) ){
        $result = '成功';
        $server_versions = $db->prepare("select version();");
        $server_versions->execute;
        while(@tmp1 = $server_versions->fetchrow){ $server_version = $tmp1[0]; }
        $databases = $db->prepare("show databases;");
        $databases->execute;
        $db->disconnect;
}
else{ $result = '失敗'; }
print "Content-type: text/html\n\n";
print <<HEADER;
<html>
<head>
<meta http-equiv="Content-type" content="text/html; charset=utf-8">
<title>接続確認 (MySQL-Perl)</title>
</head>
<body>
<h1>MySQL-Perl 接続確認</h1>
<p>
<div>MySQL 接続結果 = $result</div>
<div>MySQL バージョン = $server_version</div>
</p>
<p>
HEADER
print "<div>[データベース一覧]</div>\n";
while(@res = $databases->fetchrow){ print "<div>$res[0]</div>\n"; }
print "</p>\n</body>\n</html>\n";

0 件のコメント:

人気記事

アーカイブ

このブログを検索