perl操作mysql資料庫簡單教程

 

假定 以安裝好perl語言和mysql資料庫。
 

DBI安裝：DBI詳細資料參考：http://dbi.perl.org/
1.下載DBI包： 

wget http://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 apt-get install libmysqld-dev
 

 sudo apt-get install libmysqlclient-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]."n";     } $sth->finish();  $dbh->disconnect();