🚀 go-pugleaf

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 :-)

[...]
> 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?

> con las conversiones posteriores [onda if "23" eq ("".$individuo) , con
> $invididuo==63 ].

Alguna razon por la que haces algo como "23" eq ("".$individuo) ? En
Perl no es necesario "convertir" numeros a strings. Los numeros tienen
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.

Salud2,
W.