linux 下的安装需要三个文件包,当然不用我说,
(还是说了好)
dbi 、datashowtable和msql-mysql-modules
最新版据云观察分别是:dbi 1.14,Msql-Mysql-modules-1.2214,Data-ShowTable-3.3,好,去ftp://ftp.funet.fi/pub/languages/perl/CPAN/modules/by-module下载回来,然后:
tar -zxvf DBI-1.14.tar.gz
cd DBI-1.14
perl Makefile
make
make test
make install
cd ..
rm -fr DBI-1.14
对了,这一步里你要把你的mysql数据库连接用户和密码以及测试用数据库按提示输入,这样在make test 的时候不会出错。我也试了直接回车过去的情况,虽然测试失败,但只要程序里是正确的指明了,就一样的OK。
tar -zxvf Data-ShowTable-3.3.tar.gz
cd Data-ShowTable-3.3
perl Makefile
make
make install
cd ..
rm -fr Data-ShowTable-3.3
tar -zxvf Msql-Mysql-modules-1.2214.tar.gz
cd Msql-Mysql-modules-1.2214
perl Makefile
make
make test
make install
cd ..
rm -fr Msql-Mysql-modules-1.2214
这里要问你需要什么数据库支持,云很菜,只有mysql,那就选1了,其他默认,然后,测试一下:
pico test.pl
#########################
#!/usr/bin/perl
use DBI;
use strict;
my($dsn)="DBI:mysql:bbs:localhost";
my($user_name)="root";
my($password)="xxxxxxxx";
my($dbh,$sth);
my(@ary);
my(%attr)=
( PrintError=>0,
RaiseError=>0
);
$dbh=DBI->connect($dsn,$user_name,$password,\%attr) or die ("canno
t connect to database");
$sth=$dbh->prepare("SELECT user FROM mysql")
or die ("cannot prepare query");
$sth->execute() or die("cannot execute query");
while(@ary=$sth->fetchrow_array())
{ print join ("\t",@ary),"\n";
}
$DBI::err==0 or die("error during retrieval");
$sth->finish() or die("cannot finish query");
$dbh->disconnect() or die ("cnanot disconnect from database");
exit(0);