linuxでperl操作mysqlデータベース（DBIのインストールが必要）

DBIインストール：DBI詳細情報参照：http://dbi.perl.org/1.DBIパッケージをダウンロードする：wgethttp://search.cpan.org/CPAN/authors/id/T/TI/TIMB/DBI-1.620.tar.gz 2解凍tar xzf DBI-1.620.tar.gz 3は解凍パッケージ内に入り、perl Makefile.PL 4 make test 5 make 6 make install（rootユーザでない場合、sudoでお願いします。DBDインストール：1.DBD wgetをダウンロードします。http://search.cpan.org/CPAN/authors/id/C/CA/CAPTTOFU/DBD-mysql-4.021.tar.gz 2.3.同上で第三段階を行うと、mysqlが出現する可能性があります。configが見つからない場合は、開発キットsudo appt-get install libmysqd-devアプリケーション-get install libmysql client-devをインストールしていないはずです。その他同上インストールが完了したら、perlスクリプトでmysqlデータの操作ができます。perlスクリプト操作データベースを作成する

 
#! /usr/bin/perl 
use DBI; 
my $driver="DBI:mysql"; 
my $database="perl_test"; 
my $user="root"; 
my $host="localhost"; 
my $passwd="root"; 
my $rules="alert_rules"; 
my $dbh = DBI->connect("$driver:database=$database;host=$host;user=$user;password=$passwd") 
or die "Can't connect: " . DBI->errstr; 
my $sth=$dbh->prepare("select app_name,receivers from $rules "); 
$sth->execute() or die "Can't prepare sql statement". $sth->errstr; 
my $sth=$dbh->prepare("select app_name,receivers from $rules "); 
$sth->execute() or die "Can't prepare sql statement". $sth->errstr; 
#         
while(@recs=$sth->fetchrow_array){ 
print $recs[0].":".$recs[1]."
"; 
} 
$sth->finish(); 
$dbh->disconnect();