Foro - Perl en Español

El problema es el siguiente: en la línea 38 estás diciendoque quiere decir que quieres calcular el $indice disponible siguiente del array que está contenido dentro del hash %db, correspondiente a la clave $var1.

Es decir, tenemos un hash que en cada valor almacena un array.

Pero... en la línea siguiente estás diciendo otra cosa distinta:Aquí, estamos indicando que lo que realmente hay dentro del hash es otro hash. Y en este caso, ese hash tiene un elemento con clave 'counter'.

Y para redondear el problema, en la línea siguiente, volvemos al origen: que volvemos a tener el array dentro del hash %db. Como añadido, indicamos que cada elemento del array almacena una referencia a un hash.

Vamos... un jaleo de cambio de estructuras, línea a línea...

Esta es una posibilidad:
que sale:

Código: Seleccionar todo

$VAR1 = {
          'NOMBRE1' => [
                         {
                           'Entidad' => '01',
                           'contador' => 0,
                           'Transaccion' => '04',
                           'Agrupacion' => '02'
                         },
                         {
                           'Entidad' => '02',
                           'contador' => 0,
                           'Transaccion' => '04',
                           'Agrupacion' => '03'
                         }
                       ],
          'NOMBRE2' => [
                         {
                           'Entidad' => '03',
                           'contador' => 0,
                           'Transaccion' => '04',
                           'Agrupacion' => '05'
                         },
                         {
                           'Entidad' => '05',
                           'contador' => 0,
                           'Transaccion' => '04',
                           'Agrupacion' => '06'
                         }
                       ]
        };

y ahora sí que tenemos el hash, conteniendo cada clave un array, y cada elemento del array es otro hash.

Las preguntas.
1) No se conoce el orden en que se guardan las claves dentro de un hash. Se considera pseudo aleatorio, pero en realidad es el resultado de una operación de hash (de ahí el nombre). Esto nos obliga a hacer más trabajo de programación si queremos que la información salga en un determinado orden. Pero esta desventaja es pequeña comparada con todas las ventajas que ofrecen los hash.

Pero como el Perl, casi todo tiene solución.

Sí que hay una forma de tener un hash que guarde las claves en el mismo orden en que las guardas.

Con el módulo Tie::IxHash (y otros) puedes conseguirlo, pero a cambio de una pérdida de velocidad, como advierte perlfaq4 # How can I always keep my hash sorted?.

Sí, si que es posible. Puedes hacerlo porque no tiene nada que ver el ARRAY1 con el DATO3.

Solo tienes que controlar qué es lo que guardas en cada sitio.

En el momento de meter el dato, por ejemplo. Como no sabemos qué es lo que va a contener, tenemos que ver, en cada vuelta, qué es lo que contiene antes.

Si no hay nada, guardas el dato como escalar.

Si hay algo, entonces tienes que ver qué es que hay dentro (con la función ref(), por ejemplo).

Si lo que contiene es un escalar, guarda en él un array con dos elementos: el anterior y el nuevo.

Si hay un array, guardamos el nuevo dato en él con push().

Queda más simple si siempre usamos un array, desde luego, porque solo tenemos que usar el push().