Perl DBI一次执行多个SQL查询

Question

我需要一次执行2个mysql查询来查找查询中元素的位置编号，如：

SET @v1 := 0;  select tbl.number,tbl.name  from (select @v1:=(@v1+1) AS number, id, name,aps from acc order by aps desc limit 5) as tbl where tbl.name='jetli';

但是DBI不允许一次发出2个查询。

我如何实现目标？

Answer 1

在MySQL中，user-defined variables are session-specific.您可以在一个语句中设置变量并在以后的语句中访问它：

$dbh->do('SET @foo := 0');

my ($result) = $dbh->selectrow_array('SELECT @foo');
print $result;
# 0