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