Re: ctid

alvaro, donde puedo conseguir buena bibliografia de lo que tu estas diciendo
( LISP o Scheme)

Gracias

On 1/9/07, Alvaro Herrera <alvherre(at)commandprompt(dot)com> wrote:
>
> Felipe Amezquita escribió:
>
> > create or replace function eliminar_ubiprograma_repetidos()
> > as
> > $body$
> > declare
> > var_dir numeric;
> > var_prg numeric;
> > cur_ubiprg refcursor;
> > begin
> > OPEN cur_ubiprg for select dir_codigo,prg_codigo,count(*) from
> > ubicacion_programa group by dir_codigo,prg_codigo having count(*)>1
> > LOOP
> > fetch cur_ubiprg into var_dir,var_prg;
> > select ctid from ubicacion_programa where prg_codigo=var_dir and
> > dir_codigo=var_prg
>
> No no no no no. Debes dejar de pensar en modo procedural. Debes dejar
> de programar diciendole a la maquina paso por paso que es lo que debe
> hacer. Debes encontrar la manera de decirle a la maquina _QUE_ es lo
> que debe hacer, no _COMO_ hacerlo. Si no consigues pensar de esa manera
> jamas lograras entender como hacer funcionar una base de datos.
>
> Aca en tu funcion lo que estas haciendo es decir "por favor traigame
> todos los CTIDs que cumplan tal condicion", y a continuacion pedir para
> cada CTID conseguir que se haga tal o cual cosa. Eso es perdida de
> tiempo y recursos y escribir mil lineas que estan de sobra.
>
> Mira, aca un ejemplo de como se hace realmente:
>
> alvherre=# create table duplos (a int );
> CREATE TABLE
> alvherre=# insert into duplos values (1);
> INSERT 0 1
> alvherre=# insert into duplos values (1);
> INSERT 0 1
> alvherre=# insert into duplos values (2);
> INSERT 0 1
> alvherre=# insert into duplos values (2);
> INSERT 0 1
> alvherre=# insert into duplos values (2);
> INSERT 0 1
> alvherre=# insert into duplos values (3);
> INSERT 0 1
> alvherre=# select * from duplos;
> a
> ---
> 1
> 1
> 2
> 2
> 2
> 3
> (6 rows)
>
> Ok, hay duplicados. Como se eliminan? Observa esto:
>
> alvherre=# select ctid, a from duplos;
> ctid | a
> -------+---
> (0,1) | 1
> (0,2) | 1
> (0,3) | 2
> (0,4) | 2
> (0,5) | 2
> (0,6) | 3
> (6 rows)
>
> Queremos dejar (0,1) pero eliminar (0,2); dejar (0,3) pero eliminar (0,4)
> y
> (0,5); y dejar (0,6). Como se expresa esto? Observa:
>
> alvherre=# select min(ctid), a from duplos group by a;
> min | a
> -------+---
> (0,6) | 3
> (0,3) | 2
> (0,1) | 1
> (3 rows)
>
> Wow, aca tenemos justo los que queremos dejar! Ahora como se borra el
> resto?
>
> alvherre=# delete from duplos where ctid not in (select min(ctid) from
> duplos group by a);
> DELETE 3
> alvherre=# select * from duplos;
> a
> ---
> 1
> 2
> 3
> (3 rows)
>
>
> Listo. Nada de jugarretas con cursores ni loops.
>
> Puedes perder todo el tiempo que quieras tonteando con shared_buffers y
> discos en RAID y servidores gigantescos, pero si cuando te vas para tu
> casa has dejado un loop en PL/pgSQL que podia haberse escrito como una
> simple consulta, el rendimiento de tu servidor sera malo y la culpa sera
> tuya.
>
> Si _realmente_ quieres aprender a programar y dejar de tontear con Java
> o Visual Basic, que son juguetes para niños, aprende LISP o Scheme y
> veras como el mundo cambia de color de una forma que te sorprendera.
>
> --
> Alvaro Herrera
> http://www.CommandPrompt.com/
> The PostgreSQL Company - Command Prompt, Inc.
>
> ---------------------------(fin del mensaje)---------------------------
> TIP 7: no olvides aumentar la configuración del "free space map"
>