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 件のコメント:
コメントを投稿