«[mysql][perl] perlからmysqlを使用する»

こちら（tech.bayashi.net/pdmemo/perl_dbi_mysql.html）を参考にしました。

perlからmysqlを使用するためにはDBIとDBDが必要とのことです。

DBIは既に入っていたのでDBD::mysqlというモジュールをcpanでインストール。

[guest@localhost ~]$ su
パスワード:
[root@localhost akito]# cpan
...
cpan[1]> install DBD::mysql

...

/usr/bin/make install  -- OK

ということで、DBD::mysqlが入りました。
つぎにこちら（http://rfs.jp/sb/perl/dpi/02.html）を参考に簡単なスクリプトを書いてみました。

use DBI;

# データソース
$d = 'DBI:mysql:mysql';
# ユーザ名
$u = 'root';
# パスワード
$p = 'パスワード';

# データベースへ接続
$dbh = DBI->connect($d, $u, $p);
@row = $dbh->selectrow_array(
    "SELECT User FROM user"
);
print "@row"."\n" if @row;
$dbh->disconnect;

実行結果

root

できました。
今回は以上です。