请教一个perl DBI模块问题

[lty369963]

我要访问mysql数据库的一个单元，怎么做到？
DBI这个模块貌似这些方法：fetchrow_array fetchrow_arrayref都只能访问一行，不能访问指定的单元
比如我的sql语句是这样：SELECT NAME FROM benefit WHERE SUBJECT ='PRD' (NAME ，SUBJECT :列名，benefit ：表名，)
像这种sql语句，我应该怎么在perl获取到相应的数据？
求大神解惑

[lty369963]

这些貌似只能取到一行，不能取某个单元格吧

[Faith_X]

引用 2 楼 lty369963 的回复:

这些貌似只能取到一行，不能取某个单元格吧

可以啊,用fetchrow_hashref就可以。LZ 给个简单的例子。

[Faith_X]

引用 楼主 lty369963 的回复:

我要访问mysql数据库的一个单元，怎么做到？ DBI这个模块貌似这些方法：fetchrow_array fetchrow_arrayref都只能访问一行，不能访问指定的单元 比如我的sql语句是这样：SELECT NAME FROM benefit WHERE SUBJECT ='PRD' (NAME ，SUBJECT :列名，benefit ：表名，) 像这种sql语句，我应该怎么在perl获取到相应的数据？ 求大神解惑

代码简单那演示： 链接数据库部分省略了 fetchrow_hashref：

my $sql_str = "SELECT `NAME` FROM `benefit` WHERE `SUBJECT` = ? ";
my $subject_value = "PRD";
my $sth = $dbh->prepare($sql_str);
$sth->execute($subject_value);
while (my $row = $sth->fetchrow_hashref){
         print $row->{'NAME'}."\n";
}

至于fetchall_arrayref与fetchall_hashref这2个也可以做到，LZ 自己去看下文档 http://search.cpan.org/~timb/DBI-1.631/DBI.pm 还有种方法应该可以 selectcol_arrayref

my $ary_ref = $dbh->selectcol_arrayref($sql_str, undef, $subject_value);
foreach (@$ary_ref){
         print $_."\n";
}

解析一下$ary_ref

[lty369963]

嗯，的确好用。

[lty369963]

问题就出在“$sth->execute($subject_value);”这个上了

[Faith_X]

fetchrow_hashref试试 其实我觉得你说的fetchrow_array这种也可以取到。 楼主也可以尝试下用selectrow_array, selectrow_hashref试试