sql colgado

[abcdefghi]

Hay que realizar una mayor investigación, donde están los "inserts", el finish es útil en sentencias preparadas "prepare", la tuya es un todo en uno por lo que nada tiene que ver.

El problema no será que tienes muchos resultados? tal vez una consulta preparada te ayude más.

Código PHP:

# preparamos la consulta
my $personal = $dbh->prepare('SELECT a.id FROM Personas2 a WHERE exists (SELECT 1 FROM atributos b WHERE a.id = b.cod_atributo AND b.ind_proc_docto = ? AND b.id_tipo_atributo = ? AND d b.id_dueno = ?)') || die $self->error($self->{dbh}->errstr);
    # Personas2 es una vista de una tabla en otra BBDD, pero en el mismo servidor.
 
# Ejecutamos la consulta y enviamos los datos a reemplazar.
$personal->execute($self->{ind_proc_doc},$tipo,$self->{dueno});
 
 
    my $pers_resp=0;
    my @array;
 
    while (my $pers = $personal->fetchrow_hashref()){
        
        my $emp = new SBMP::Empleado($pers->{id});
        if ($visualizacion){
            push @array,&fixcase($emp->nombre);
        } else {
            print Tr(
                        td({-class=>"bordercell", -width=>'100%'},&fixcase($emp->nombre))
                    )."\n";
            $pers_resp++;
        }
    }
 
# eliminamos la consulta preparada
$personal->finish();
 

A mi punto de vista y por la forma de programación es más probable que el problema sea un "circular reference" y te producta una "Leak Memory".

En principio en ese código no veo nada a prima facie, que es lo que te está sucediendo, cuando pasa, cuanto tiempo o veces en ejecución estuvo antes de fallar, cuanta memoria consume, etc.