VPF::DBI и два результата - Форум программистов

djkostya

Дата 20.12.2006, 12:18 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 71
Регистрация: 16.5.2006
Где: Москва

Репутация: 1
Всего: 2

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

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 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 13
Всего: 61

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

Код


$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";

Это сообщение отредактировал(а) korob2001 - 20.12.2006, 13:20

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: разработка для Web \| Следующая тема »