▼ --MySQL の使用説明--

A. コマンドライン:
mysql -uUSER -pPASSWORD -hlocalhost USER

B. Perl スクリプト:
NOTE: virtual_html の上位の階層にユーザー名とパスワードを含むスクリプトを置いてください。
ブラウザーからのアクセスはできません。
例としてユーザーディレクトリーに置く場合は以下のようになります。

/usr/home/USER/MY_SCRIPT.pl

Unicode を使用することで日本語の使用が可能になります。

use Unicode::MapUTF8 qw(to_utf8 from_utf8);
use DBI;

$mysql_db = "USER";
$mysql_host = "localhost";
$mysql_user = "USER";
$mysql_passwd = "PASSWORD";

== データベースにアクセスする:

$dbh = DBI->connect( "DBI:mysql:$mysql_db:$mysql_host",
$mysql_user,
$mysql_passwd, {
RaiseError => 1 });

== データを追加する:

$JAPANESE_TEXT = "あいうえお";
- UTF8 で変換する -
$JAPANESE_TEXT = to_utf8({ -string => "$JAPANESE_TEXT", -charset => "sjis" });

$sqlquery = "INSERT INTO SET = '$JAPANESE_TEXT'";
$enter = $dbh->prepare($sqlquery);
$enter->execute;
$enter->finish;

== データを変更する:

$JAPANESE_TEXT = "あいうえお";
- UTF8 で変換する -
$JAPANESE_TEXT = to_utf8({ -string => "$JAPANESE_TEXT", -charset => "sjis" });

$sqlquery = "UPDATE SET = '$JAPANESE_TEXT' WHERE = 'value'";

$modify = $dbh->prepare($sqlquery);
$modify->execute;
$modify->finish;

== データを削除する:

$sqlquery = "DELETE FROM WHERE = 'value'";
$delete = $dbh->prepare($sqlquery);
$delete->execute;
$delete->finish;

== データを得る:

$sqlquery = "SELECT * FROM WHERE = 'value'";
$search = $dbh->prepare($sqlquery);
$search->execute;
while($hashref = $search->fetchrow_hashref) {

- 元に戻す -
$$hashref{JAPANESE_TEXT} = from_utf8({ -string =>
"$$hashref{JAPANESE_TEXT}", -charset => "sjis" });

以下のように、$$hashref{JAPANESE_TEXT} が使用できます:
print "$$hashref{JAPANESE_TEXT}";
}

==ログアウトの際は忘れないでください:

$dbh->disconnect();