MySQL をインストールし、Perl から接続できるように設定する

$ su-

# rpm -qa | grep MySQL

# groupadd mysql
# adduser -g mysql -d /usr/local/mysql mysql

# cd /usr/local/src
# tar zxvf mysql-4.0.20.tar.gz

# ./configure --with-charset=sjis \
--with-extra-charset=all \
--with-mysqld-user=mysql \
--with-innodb \
--prefix=/usr/local/mysql \
--with-unix-socket-path=/tmp/mysql.sock

# make
# make install

# ./scripts/mysql_install_db --user=mysql

# chown -R mysql /usr/local/mysql
# chgrp -R mysql /usr/local/mysql
# chown -R mysql /var/lib/mysql

# /usr/local/mysql/bin/mysqld_safe &

# netstat -a | grep mysql

# ps -el | grep mysqld

# cd /usr/local/mysql/share/mysql
# cp mysql.server mysql
# chmod 755 mysql
# mv mysql /etc/rc.d/init.d

# cd /etc/rc.d/rc0.d/
# ln -s ..init.d/mysql K13mysql
# cd ../rc3.d/
# ln -s ..init.d/mysql S90mysql
# cd ../rc5.d/
# ln -s ..init.d/mysql S90mysql

# /usr/bin/mysql -u root mysql

mysql> set password for root=password('ここにパスワード');
mysql> exit

mysql> /usr/bin/mysql -u root mysql -p
PASSWORD : 入力

mysql> use mysql;
mysql> delete from user where password='';
mysql> flush privileges;
mysql> exit

mysql> grant all on enet.* to user@localhost identified by "user";

# cd /usr/local/src
# tar zxvf Data-Dumper-2.121.tar.gz
# tar zxvf DBI-1.43.tar.gz
# tar zxvf Msql-Mysql-modules-1.2219.tar.gz

# cd Data-Dumper-2.121
# perl Makefile.PL
# make
# make test
# make install
# cd ../DBI-1.43
# perl Makefile.PL
# make
# make test
# make install
# cd ../DBD-mysql-2.9004
# perl Makefile.PL

Which drivers do you want to install?
    1)  MySQL only
    2)  mSQL only (either of mSQL 1 or mSQL 2)
    3)  MySQL and mSQL (either of mSQL 1 or mSQL 2)
    4)  mSQL 1 and mSQL 2
    5)  MySQL, mSQL 1 and mSQL 2
Enter the appropriate number:  [3] 1
Do you want to install the MysqlPerl emulation? You might keep your old
Mysql module (to be distinguished from DBD::mysql!) if you are concerned
about compatibility to existing applications! [n]
Where is your MySQL installed? Please tell me the directory that
contains the subdir 'include'. [/usr/local/mysql]
Which database should I use for testing the MySQL drivers? [test]
On which host is database test running (hostname, ip address
or host:port) [localhost]
User name for connecting to database test? [undef]
Password for connecting to database test? [undef]

# make
# make test
# make install

use DBI;

$ds = 'DBI:mysql:testdb:localhost';
$user = 'user';
$pass = 'user';

$dbh = DBI->connect($ds, $user, $pass,{RaiseError=>0,PrintError=>1,AutoCommit=>1}) 
                         || die "Got error $DBI::errstr when connecting to $ds\n";

$dbh->disconnect;

1;