求助～～关于连接mysql

huangxiaohen

在家里好用，换了台电脑就不好用了。这是为什么呢？？而且prepare也不能用了。。。
DBI connect('bbs_url:localhost','root',...) failed: Can't connect to local MySQL server through socket '/var/lib/mysql/mysql.sock' (2) at spider.pl line 13
Can't call method "prepare" on an undefined value at spider.pl line 23.

1.   7 my $dbname = "bbs_url";
   
2.   8 my $location = "localhost";
   
3.   9 my $port = "3306";
   
4. 10 my $database = "DBI:mysql:$dbname:$location";
   
5. 11 my $db_user = "root";
   
6. 12 my $db_pass = "root";
   
7. 13 my $dbh = DBI->connect($database,$db_user,$db_pass);
   
8. 
   
9. my $sth=$dbh->prepare("$sql");
   
10. 
    

复制代码

墨迹哥

尝试下重启数据库服务。service mysqld restart

墨迹哥

而且给你一个我以前写的例子，你研究下是不是哪写错了？

1. #!/usr/bin/perl
   
2. 
   
3. #set module
   
4. use DBI;
   
5. 
   
6. #scanf the mysqluser
   
7. print "请输入mysql帐号:\n";
   
8. chomp($mysql_n=<STDIN>);
   
9. print "请输入mysql密码:\n";
   
10. chomp($mysql_p=<STDIN>);
    
11. print "请输入需要连接的数据库:\n";
    
12. chomp($mysql_d=<STDIN>);
    
13. print "请输入需要插入的用户数据:\n";
    
14. chomp($user_n=<STDIN>);
    
15. print "请输入需要插入的密码数据:\n";
    
16. chomp($user_p=<STDIN>);
    
17. print "请输入需要插入的电话数据:\n";
    
18. chomp($user_t=<STDIN>);
    
19. print "请输入需要插入的工龄数据:\n";
    
20. chomp($user_y=<STDIN>);
    
21. 
    
22. 
    
23. #connect mysql
    
24. my $in=DBI->connect("DBI:mysql:database=$mysql_d;host=localhost","$mysql_n","$mysql_p") or die "FUCK no do it!!!\n";
    
25. #insert tables
    
26. my $insert=$in->do("insert into people(username,password,number,year)values('$user_n','$user_p',$user_t,$user_y)");
    
27. 
    
28. #select databases;
    
29. my $select=$in->prepare("select username,password from people");
    
30. $select->execute();
    
31. 
    
32. #print the list
    
33. while(my $list=$select->fetchrow_hashref()){
    
34.   print "$list->{'username'}\t";
    
35.   print "$list->{'password'}\t";
    
36.   print "$list->{'number'}\t";
    
37.   print "$list->{'year'}\t";
    
38. }
    
39. print "\n";
    
40. #close mysql
    
41. $in->disconnect();
    

复制代码

wenxin1234114

telnet 127.0.0.1 3306 看看本机DB是否正常

huangxiaohen

回复 4# wenxin1234114


   正常啊。以前也有这情况也忘了做什么了就可以使了，这次怎么也不好使。。。在家可以跑，换台机器就不ok了。。。

kaixin9ok

是不是本机要装mysql-devel

huangxiaohen

回复 6# kaixin9ok
我在家就装了个Mysql，在别的机器装的一模一样的mysql，一样的代码。就是跑不了```` 郁闷


   

py

huangxiaohen 发表于 2013-07-24 15:21
回复 6# kaixin9ok
我在家就装了个Mysql，在别的机器装的一模一样的mysql，一样的代码。就是跑不了```` 郁 ...

什么叫“一模一样的mysql“？
防火墙设置一样吗？mysql版本一样吗？端口一样吗？数据库用户权限一样吗？socket文件位置一样吗？my.cnf中的设置一样吗？

btw. 报错写的很清楚了。

grshrd49

如果是换了环境出问题 主要还是排查一下环境是否安装正确
看看mysql的inner engine安装是否到位，试试用客户端是否能正常链接mysql，手动下sql是否正常。
再检查perl环境的dbi是否安装，是否安装到位，建议用cpan自动安装
最后在看下sql的格式语法是否正确，还有perl的语法是否正确
基本就这点
要不你贴下完成的脚本来看看吧