mysql 在perl 里的设置求助！

gary4096

大侠们好：

本人原有一服务器在托管，但因最近几年没有生意，因此决定放弃托管（4000一年），改为租用虚拟主机。
这家虚拟主机也是linux，广告说支持perl及mysql，因此定了他们的服务。但是已经过了两个多星期，仍然无法把perl与mysql连上。他们的技术服务说1.现在没有人用perl,其实是他们不懂perl，因此一直拖着没给答案。

我写了一个简单的程序，但是走到 DBI->connect($DSN,$user,$psw); 这步时就没消息了，下面是此测试程序：

http://gary4096.host.uniwan.cn/cgi/test_mysql.cgi

为了方便大侠们可以从web快速打开查看，文本重复放在下面:
http://gary4096.host.uniwan.cn/test_mysql.txt

程序就是几句，不知道什么地方需要修改，请大侠们不吝帮看看。谢谢！
另外，如果需要深入研究，我的帐户及密码如下：

恭喜您的虚拟主机开通成功，以下是您的资料：
用户管理界面:
http://www.uniwan.cn/hostasp.asp
用户名:gary4096
密码: jjiii555

您的FTP地址是：        h.souidc.com
您的FTP用户名：        gary4096
您的FTP密码是：        4F8027421A3c9a
您的网址为：        http://gary4096.host.uniwan.cn
服务器IP是：        211.154.132.56 220.112.46.56

数据库用户名：a0507212830
数据库密码：139693
数据库名称:a0507212830
数据库所在IP:211.154.132.56
所用的连接端口:3306

Strange

不能use DBI; 不就说明问题了吗？
如果服务器用很旧版本的Perl的话，默认是不带DBI的。
当然，即使是新版本，默认也不带 DBD::Mysql 的。
所以需要服务器上装适当的模块，不然肯定不能用啦。

iakuf

回复 1# gary4096
我认为你买个 Linode 的 vps 和阿里云的云服务器都会比这个简单。


   

ecjtubaowp

虚拟主机还想搞perl?在国内很少吧。

rubyish

Strange 发表于 2013-05-25 06:00
不能use DBI; 不就说明问题了吗？
如果服务器用很旧版本的Perl的话，默认是不带DBI的。
当然，即使是新版 ...

学习..~

墨迹哥

回复 2# Strange


    我从来没遇到过默认安装DBI的。。。。你在哪遇到过的？
   

grshrd49

程序或者脚本出了问题
1.看报错信息，根据错误提示定位错误
2.如果启动程序什么都没有发生
    a.除非作者知道脚本的行为
    b.如果不知道脚本在干嘛，果断ctrl+c，在有可能出现问题的函数或者判断的前中后加入print
3.如果程序脚本执行后出现了一个自己不想看到的运行结果，请检查所有涉及到的参数在数据流中的变化。可以使用断点调试或者打印出计算结果
4.如果定位到是调用的包或者包中调用的函数出了问题，请仔细阅读说明文档以及源码。
5.超出了自己能力以及理解范围，果断百度，或者找个社区发帖求助

楼主你单写个链接数据库的脚本，看看有没有问题
我这里链接没有问题 运行结果返回了test1是不是你测试库中的表名呢？

1. use DBI;
   
2. use strict;
   
3. 
   
4. my @a0507212830 = ("a0507212830","211.154.132.56","3306","a0507212830","139693");
   
5. my $sql = "SHOW TABLES from a0507212830";
   
6. my @plantable_info = &operate_mysql(@a0507212830,"$sql","select");
   
7. print "$_\n" for(@plantable_info);
   
8. 
   
9. sub operate_mysql
   
10. {
    
11.         #&operate_mysql(@db_name,"$sql_word","select|insert");
    
12.         my @parameter = @_;
    
13.         my $control = $parameter[6];
    
14.         my $dbname = $parameter[0];
    
15.         my $location = $parameter[1];
    
16.         my $port = $parameter[2];
    
17.         my $database = "DBI:mysql:$dbname:$location:$port";
    
18.         my $db_user = $parameter[3];
    
19.         my $db_pass = $parameter[4];
    
20.         my $dbh = DBI->connect($database,$db_user,$db_pass);
    
21.         my $sql_word = $parameter[5];
    
22. 
    
23.         if ( $control eq "select" ){
    
24.                 my $sth = $dbh -> prepare($sql_word);
    
25.                 $sth -> execute() or print $dbh->errstr;
    
26.                 my @result ;
    
27.                 while (my @value = $sth -> fetchrow_array){
    
28.                         push @result, @value;
    
29.                         #print "value : @value\n";
    
30.                 }
    
31.                 return @result;
    
32.         }
    
33.         if ( $control eq "insert" ){
    
34.                 my $sth = $dbh -> prepare($sql_word);
    
35.                 $sth -> execute() or print $dbh->errstr;
    
36.         }
    
37. }

复制代码

Strange

回复 6# 墨迹哥


    debian 6, centos 5, gentoo, macos 等等都带了

laputa73

回复 8# Strange


    虚拟主机和虚拟服务器不是一回事
   虚拟主机只是虚拟了一些服务(比如http,ftp,mysql),而不是虚拟操作系统
   至于http能不能连上mysql,得看服务提供商了
   一般主机默认会有php,asp的mysql驱动
   perl不一定会有,可以要求管理员安装(如果他们号称可以同时支持perl和mysql)

   不过你有ftp权限,应该也可以上传一个到自己的目录空间
   就是麻烦点吧
   类似非root权限安装perl模块,而且还要用免安装模式
   我想到的
   你在本地装个虚拟机,一样的操作系统,mysql也要一样的目录
    用非root用户安装DBI和DBD::mysql,肯定还会用到其它的模块
     安装好以后打包ftp传上去
   后续说不定还有环境变量的问题,还没有telnet/ssh服务,

   现在云主机这么便宜
   还是考虑换个云主机吧