Perlのテストファイル:MySQL接続チェック

2015/10/08 アキヒロ MySQLWordPress

今更Perl弄るとは思わなんだ・・・

#!/usr/bin/perl

use strict;
use DBI;

# MySQL
our $DB_NAME = "データベース名";
our $DB_USER = "ユーザ名";
our $DB_PASS = "パスワード";
our $DB_HOST = "ホスト名";
our $DB_PORT = "ポート番号";

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";
$dbh->disconnect;

print "Content-type:text/html\n\n";
print "MySQL接続チェック\n";
print "エラー出なかったからいんじゃん?\n";
print "\n";
print "\n";
exit;

やだ、¥の半角が全部バックスラッシュになってるるる~


コメントを残す

Powered by http://wordpress.org/ and http://www.hqpremiumthemes.com/
%d人のブロガーが「いいね」をつけました。