🚀 go-pugleaf

Waldo wrote:
> Miguel Farah wrote:
>
> > Porque voy leyendo un archivo GEDCOM, segmento por segmento, que dice
> > cosas como esto:
> [...]
>
> No has dicho de que taman~o es el archivo, pero igual puedes hacer lo
> mismo que haces, salvo que en vez de imprimir cada item cuando lo lees,
> imprimes la tabla total al final. Me parece bastante mas limpio y te
> queda como lo que sugeria antes. Eso si, si las tablas tienen centenas
> de miles de elementos, puede ser un problema :-)

Lo pensé por el lado de "leo el dato, lo imprimo y me olvido de él".
Es
más sencillo de manejar, y no tiene tanta importancia que sea más o
menos limpio, pues se trata de datos generados en forma automática,
que
no se supone que deban ser leídos por un humano. Y si después hay que
hacer alguna clase de debugging, basta con hacer un print entremedio.
IMHO.

El archivo GEDCOM que yo manejo tiene 418 individuos y 106 familias,
que
no es mucho. He visto otros que tienen 4000+ individuos...


> [...]
> > Por esto, parte de las asignaciones son más fáciles de hacer si vas
> > línea por línea (las de hijos, en particular:
> > [$hijos{"356"}.="358,";]).
>
> Los puedes hacer linea por linea, pero nada (excepto taman~o) te obliga
> a _imprimirlos_ linea por linea, no?

No, nada me obliga.

> > con las conversiones posteriores [onda if "23" eq ("".$individuo) , con
> > $invididuo==63 ].
>
> Alguna razon por la que haces algo como "23" eq ("".$individuo) ? En

No, no lo hago. Es precisamente lo que evito. :-)

> Perl no es necesario "convertir" numeros a strings. Los numeros tienen

Lo sé. Lo que pasa es que no me gusta ese tratamiento (siempre he
preferido tipos de datos fuertes).


> siempre doble personalidad. Puedes hacer "23" eq $individuo, o 23 ==
> $individuo sin mas. (Internamente, un numero en Perl parte su vida como
> numero (guardado como int, o long, o lo que sea) pero adquiere una
> representacion como string automaticamente, cuando se necesita, y ambas
> conviven siempre. Cuando una de las dos cambia, la otra se invalida.
> Como consecuencia, un simple entero puede ocupar varias decenas de
> bytes internamente y en general es buena idea no hacer cosas como "23"
> eq $individuo, para evitar crear la otra representacion).
>
> > Como dice el viejo dicho, TMTOWTDI. :-)
>
> Me perdi. No conozco el dicho.

"There's More Than One Way To Do It."