該当するレコードの数を取得するには

[Perl] => [DBI]

$sth->execute の後、$sth->rowsとすればレコードの数を取得することができます。

[例]
$dbh = DBI->connect("DBI:Pg:dbname=dbname;host=hostname","username","password",{AutoCommit => 1}) || warn $DBI::errstr;
$sth = $dbh->("SELECT * FROM table_name");
$num = $sth->rows;
print "$num\n"
$sth->finish();
$dbh->disconnect;