Хочу получить ко-лво строк в результате запроса. Использую переменную $DBI::rows.#!/usr/bin/perl
use DBI;
$data_source = 'dbi:mysql:vpn';
$username = 'user';
$auth = 'password';
if (!($dbh = DBI->connect($data_source, $username, $auth))) {
die "Error";
}
$sql = "select * from usergroup;";
$myoutput = $dbh->prepare($sql);
$myoutput->execute or die "Error in execute: $dbh->errstr";
print $DBI::rows;
$myoutput->finish;
$dbh->disconnect();
Записи в таблице есть.Запускаю скрипт в но кол-во рядов не выводится.В чем проблема?
версия perl 5.8.2
ОС gentoo linux
mysql 4.0.25
Пробовал и print $myoutput->rows; результат тот же.
Вариант для распечатки
Программирование под UNIX (Public)
(ok) on 05-Июл-07, 17:02 
