Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: разработка для Web > DBI и два результата

Автор: djkostya 20.12.2006, 12:18

Вобщем есть запрос

SELECT USER(); SELECT VERSION();

Выводит

+----------------+
| USER() |
+----------------+
| root@localhost |
+----------------+
1 row in set (0.00 sec)

+-----------+
| VERSION() |
+-----------+
| 5.0.27 |
+-----------+
1 row in set (0.01 sec)

Если написать на perl через DBI
my $sth = $dbh->prepare( "SELECT USER(); SELECT VERSION()");

Выдаст только последний а как получить сразу два....???????

Автор: korob2001 20.12.2006, 13:09

Я так понимаю, ты хочешь получить их одним запросом? Если да, тогда:

Код


$sth = $dbh->prepare("SELECT USER(), VERSION()");
$sth->execute();
my($user,$version) = $sth->fetchrow_array();

print "$user\n$version\n";

Если хочешь получить их ввиде ссылки на хеш, тогда такой запрос вполне подойдёт:

Код


$sth = $dbh->prepare("SELECT USER() AS 'User', VERSION() AS 'Version'");
$sth->execute();
my $href = $sth->fetchrow_hashref();

print $href->{User} . "\n";
print $href->{Version} . "\n";