Foro - Perl en Español

Buenas tardes.

Abriendo un nuevo tema y gracias por la ayuda anterior.

Se quiere crear un mensaje de error dentro de un while() al conectar con una base de datos de MySQL donde, dependiendo del valor de una variable, muestre el error. Voy a mostrar el código:

$dbh = DBI->connect("DBI:mysql:otrs","root",'root');
$sql = "select name, ticket_id, history_type_id, create_time
from ticket_history where history_type_id in (1,16,27)and ticket_id =$algo";
$sth = $dbh->prepare($sql);
$sth->execute;
while( ($name, $ticket_id, $history_type_id, $create_time,) =$sth->fetchrow() ) {
if ($sth->rows == 0) {
print "No names matched\n\n";
}
}

No he entendido para qué el sth -> llama a rows(). La idea es que si la variable $algo es igual a cero muestra el error y se devuelve a la otra entrada.