[请问]mysql.pm centos6.3 中perl 无法调用mysql

wnpers

大家好，我搜了很多答案，而且我看到我已经安装了perl-DBD-MYSQL
但还是出现这样的情况。
请大家帮忙，谢谢。
use strict;
use Mysql;  // 这里提示 Can't locate Mysql.pm in @INC (@INC contains: /usr/local/lib64/perl5
use IO::File;
use File::Basename;
use utf8;
no utf8;

my $scriptName = "apply_license_from_localfile";
my $logseqnum = 0;
my $logFileH;


my ($localfile) = @ARGV;

my $host = "localhost";
my $dbname = 'henduo';

my $user = 'henduouser';
my $passwd = 'henduo';

my $dbh = Mysql->connect($host, $dbname, $user, $passwd);

wnpers

我先用 perl -MCPAN -e shell
重新安装一下 DBI 和  DBD-Mysql 试试

laputa73

use DBI;

不用use Mysql;

wnpers

laputa73 发表于 2014-04-04 15:02
use DBI;

不用use Mysql;

好的 我试试

wnpers

我改写成了 use DBI
然后连接数据库
出现不能用原来的 ->query 方法, 我就改成了->prepare, 用于 select


结果出现 错误   
DBD::mysql::st fetchrow failed: fetch() without execute()

我的代码 是这样的：

1. $sth = $dbh->prepare("select value from henhao where name='$type'");
   
2.                 $row = $sth->fetchrow;
   
3.                 if (!$row){
   
4.                         print "No such type, please check whether you made a typo\n!" ;
   
5.                         exit(-1);
   
6.                 }
   
7.         }

复制代码

q1208c

回复 5# wnpers

prepare
execute
fetch

你没有 执行 就 fetch, 那能 fetch 到啥呢?
   

wnpers

q1208c 发表于 2014-04-04 15:22
回复 5# wnpers

prepare

非常感谢，应该在prepare语句后面添加 $sth->execute();

所以最后代码应该是

1. $sth = $dbh->prepare("select value from henhao where name='$type'");
   
2.                 $sth->execute();//添加的执行语句。
   
3.                 $row = $sth->fetchrow;
   
4.                 if (!$row){
   
5.                         print "No such type, please check whether you made a typo\n!" ;
   
6.                         exit(-1);
   
7.                 }
   
8.         }

复制代码

wnpers

回复 6# q1208c


    请问，我如何得到值呢？？
使用 $sth->rows;  还是 $res->fetchrow  ？？ 或者别的方法，我就想得到数据库中得到的值

laputa73

单条记录单个值
$a = $sth->fetchrow();

多条记录多个值

1.     while (my $ref = $sth->fetchrow_arrayref())
   
2.     {
   
3.         $a = $ref->[1];
   
4.         $b = $ref->[2];
   
5.     }

复制代码

或者用hash

1. my $ref=$sth->fetchrow_hashref();
   
2.     my $a =$ref->{'a'};

复制代码

wnpers

回复 9# laputa73

非常感谢。