perl新手询问:perl程序里头怎么访问远程一台机器的MYsql数据库

hyq_111

如题,我想请问各位大仙,perl程序里头怎么访问远程一台机器的MYsql数据库啊?需要安装什么必须的模块吗?还是perl的核心库里头就有这样的函数接口?如果需要安装模块,哪些是必须的? 才开始学perl,所以基础较差,请高手们不要笑话!

撒哈拉里的鱼

1. my $mysql = DBI->connect( "DBI:mysql:database=$data_base;host=localhost", $user, $pass, {'RaiseError' => 1});

复制代码

dbi
dbd::mysql

hyq_111

那请问,除了perl中需要安装这个模块外,还需要在系统中安装其他的支持Mysql的模块吗?比如在JAVA中,就需要安装Mysq的jdbcl驱动

phpcool

mysql path:/usr/local/mysql

1. 
   
2. tar -zxvf DBI-1.53.tar.gz
   
3. cd DBI-1.53
   
4. perl Makefile.PL
   
5. make
   
6. make test
   
7. make install
   
8. 
   
9. tar -zxvf DBD-mysql-2.9007.tar.gz
   
10. cd DBD-mysql-2.9007
    
11. env LANG=C perl Makefile.PL --cflags=-I/usr/bin --mysql_config=/usr/local/mysql/bin/mysql_config
    
12. cp /usr/local/mysql/include/* /usr/local/include
    
13. make
    
14. make install
    
15. 
    
16. 
    
17. 测试:--------------------------------
    
18. 
    
19. #!/usr/bin/perl -w
    
20. use strict;
    
21. use DBI;
    
22. #定义数据库名称；
    
23. my $database_name = "dbname";
    
24. # 定DBI联接语句；
    
25. my $database ="dbi:mysql:dbname=$database_name";
    
26. #定义用户名、口令；
    
27. my $db_user = "DBUSER";
    
28. my $db_password = "sdfsdfsd687D852";
    
29. ### 连接.
    
30. my $dbh=DBI->connect($database,$db_user,$db_password) or die "can't connect!";
    
31. if ($dbh)
    
32. {
    
33. print "mysqlconnect ok!\n";
    
34. print "my $dbh->port();\n";
    
35. }
    
36. else
    
37. {print "mysqlconnect false!\n";
    
38. }
    
39. ##$dbh=DBI->disconnect;
    
40. 
    
41. 
    
42. 出现：
    
43. mysqlconnect ok!
    
44. my DBI::db=HASH(0x81124e8)->port();
    

复制代码

[ 本帖最后由 phpcool 于 2006-11-30 11:30 编辑 ]

hyq_111

我安装不成功啊,在make test的时候报错误.请问这是什么原因啊?

hyq_111

另说明一下:我安装perl的主机上没有安装MYsql数据库,我是想远程访问另一台机器上的MYsql数据库,我用的perl模块版本是 DBD-mysql-3.0008.tar.gz

flw

原帖由 hyq_111 于 2006-11-30 13:48 发表
我安装不成功啊,在make test的时候报错误.请问这是什么原因啊?

错误信息发上来。

hyq_111

Failed Test         Stat Wstat Total Fail  Failed  List of Failed
-------------------------------------------------------------------------------
t/10dsnlist.t         10  2560     9   17 188.89%  1-9
t/20createdrop.t      10  2560     5    9 180.00%  1-5
t/30insertfetch.t     10  2560    11   21 190.91%  1-11
t/35limit.t           10  2560   113  225 199.12%  1-113
t/35prepare.t        255 65280    30   60 200.00%  1-30
t/40bindparam.t       10  2560    28   55 196.43%  1-28
t/40bindparam2.t      10  2560    13   25 192.31%  1-13
t/40blobs.t           10  2560    11   21 190.91%  1-11
t/40listfields.t      10  2560    18   35 194.44%  1-18
t/40nulls.t           10  2560    11   21 190.91%  1-11
t/40numrows.t         10  2560    25   49 196.00%  1-25
t/41bindparam.t      255 65280    11   22 200.00%  1-11
t/41blobs_prepare.t   10  2560    24   47 195.83%  1-24
t/42bindparam.t      255 65280    11   22 200.00%  1-11
t/50chopblanks.t      10  2560    35   69 197.14%  1-35
t/50commit.t         255 65280    30   59 196.67%  1-30
t/dbdadmin.t          10  2560    21   41 195.24%  1-21
t/insertid.t         255 65280    12   24 200.00%  1-12
t/param_values.t     255 65280     8   15 187.50%  1-8
t/prepare_noerror.t  255 65280    ??   ??       %  ??
t/texecute.t         255 65280     9   17 188.89%  1-9
1 test skipped.
Failed 21/23 test scripts, 8.70% okay. 435/440 subtests failed, 1.14% okay.
make: *** [test_dynamic] 错误 255

hyq_111

这样够不够?

dajun

我刚好昨天也装了，出问题的地方是没有mysql_config, 然后我装了mysql_devel-. ...就安装上了