Net::MySQL错误求助

chenryn

一个向短信猫发信息的小脚本，如下：

1. #!/usr/bin/perl -w
   
2. use Net::MySQL;
   
3. die "connectmysql.pl <Phone_number> \"<IP> <Message>\"\n" unless @ARGV==2;
   
4. 
   
5. $send_number=shift @ARGV;
   
6. $info=shift @ARGV;
   
7. 
   
8. $mysql=Net::MySQL->new(
   
9. hostname=> '10.10.10.100',
   
10. database=> 'sms',
    
11. user=> 'sms',
    
12. password=> 'sms'
    
13. );
    
14. $mysql->query(
    
15. "INSERT INTO outbox  (id ,number ,processed_date ,insertdate ,text ,phone ,processed ,error ,dreport) VALUES (NULL , $send_number, NOW( ) , '0000-00-00 00:00:00', '$info', NULL , '0', '-1', '0')");
    
16. $mysql->close;
    
17. printf "send_number $send_number\n";
    
18. print  "info  $info\n";

复制代码

在其他机器上都没有问题，就在一台机器上一直报出如下错误：
send: Cannot determine peer address at /usr/local/lib/perl5/site_perl/5.12.2/Net/MySQL.pm line 100
我看100行是sub close里的，但即便我改错用户名密码，错误也还是这句，而不是出现拒绝访问等等。
问题出在哪呢？

珞水的大叔

回复 1# chenryn


    看它的报错应该是连不数据库那台机器，推测是网络问题，请检查一下执行代码的机器到数据库的网络状况（telnet 一下它的端口看看）

chenryn

回复  chenryn


    看它的报错应该是连不数据库那台机器，推测是网络问题，请检查一下执行代码的机器 ...
珞水的大叔 发表于 2010-10-14 16:53

    没有问题，从这台机器telnet数据库的3306能通~

珞水的大叔

回复 3# chenryn


    那么机器perl的版本、调用的模块的版本是否几台机器都相同呢

chenryn

回复 4# 珞水的大叔


perl版本都是5.8.8，模块都是CPAN安的……

珞水的大叔

回复 5# chenryn


    发现一个好东西，就是本网站的：
http://linux.chinaunix.net/bbs/thread-1170059-1-1.html

1. 常见问题
   
2. 问题二、logs表无数据，运行/www/webroot/php-syslog-ng/scripts/contrib/dbgen/dbgen.pl
   
3. 提示：Cannot determine peer address at /usr/lib/perl5/site_perl/5.8.5/Net/MySQL.pm line 277
   
4. 
   
5. 解决方法：
   
6. 1、是logzilla2.9.9安装时一个bug，新建的mysql的syslogadmin、sysloguser用户权限没有成功赋予，手工添加上就OK了，感谢【杭州】FIGO提供的故障案例。
   
7. 2、如第1步不成功，尝试修改/www/webroot/php-syslog-ng/html/config/config.php文件mysql主机地址localhost为127.0.0.1。

复制代码

chenryn

这个看到过了，我这个现象不太一样呀，因为其他的地方运行没问题……
刚试了一下，这台机器运行perl向另一个库请求也没问题，那个库是mysql5，出问题的是mysql4，这个有关系么？

珞水的大叔

痛苦啊，到这个程度就只能请达人help了