Hola,
tengo un array con 2 palabras por ejemplo, y quiero meterlas en una key de una tabla hash. ¿Se puede? Es que solo consigo meter una...
Gracias
-
- Publicidad
Meter una serie de elementos en una key de hash
8 mensajes
• Página 1 de 1
Meter una serie de elementos en una key de hash
por trujin » 2009-01-10 13:35 @608
- trujin
- Perlero nuevo
- Mensajes: 12
- Registrado: 2009-01-04 12:53 @578
Publicidad
por explorer » 2009-01-10 19:10 @840
Sí que se puede, claro. Solo hay que unirlas de alguna manera:
Sale:
Using perl Syntax Highlighting
#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
use Data::Dumper::Names;
my @palabras = qw( Hola mundo );
my %hash;
$hash{ "$palabras[0]|$palabras[1]" } = 1;
print Dumper \%hash;
use strict;
use warnings;
use diagnostics;
use Data::Dumper::Names;
my @palabras = qw( Hola mundo );
my %hash;
$hash{ "$palabras[0]|$palabras[1]" } = 1;
print Dumper \%hash;
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
- Código: Seleccionar todo
%hash = (
'Hola|mundo' => 1
);
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
por creating021 » 2009-01-11 09:42 @446
Using perl Syntax Highlighting
use strict;
use warnings;
use diagnostics;
my %hash = (
"palabra1" => [ "dato1", "dato2" ],
"palabra2" => [ "dato3", "dato4" ]
);
# imprimir dato1, dato2
print ( join ", ", @{ $hash{ palabra1 } } ) . "\n";
use warnings;
use diagnostics;
my %hash = (
"palabra1" => [ "dato1", "dato2" ],
"palabra2" => [ "dato3", "dato4" ]
);
# imprimir dato1, dato2
print ( join ", ", @{ $hash{ palabra1 } } ) . "\n";
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Un hash de arrays... eso está en los tutoriales: Usando el hash, por Uriel Lizama.
Expect the worst, is it the least you can do?
-
creating021 - Perlero frecuente
- Mensajes: 595
- Registrado: 2006-02-23 16:17 @720
- Ubicación: Frente al monitor
por explorer » 2009-01-12 05:52 @286
Con @table{$word} estás indicando que vas a guardar en %table tantos elementos como claves indiques a continuación. Como solo indicas una ($word), pues solo guarda un elemento de @vec.
Si lo que quieres es guardar todos los elementos de @vec en %table, asociadas a la clave $word, tienes que ponerlo así:
Es decir:
* queremos definir un solo valor correspondiente a la clave $word, por lo que ponemos un '$' delante de table
* ese "valor" que almacenamos es un arreglo. Y la forma de guardar un arreglo dentro de un escalar es por medio de una referencia a un arreglo, por lo que ponemos los '[]', para indicar que estamos creando un arreglo anónimo (un arreglo no asociado a ningún nombre de variable)
* el contenido del arreglo serán los elementos de @vec.
Más información sobre estructuras complejas en perldsc (Perl Data Structures Cookbook) y perllol (Manipulating Arrays of Arrays in Perl).
Si lo que quieres es guardar todos los elementos de @vec en %table, asociadas a la clave $word, tienes que ponerlo así:
Using perl Syntax Highlighting
Es decir:
* queremos definir un solo valor correspondiente a la clave $word, por lo que ponemos un '$' delante de table
* ese "valor" que almacenamos es un arreglo. Y la forma de guardar un arreglo dentro de un escalar es por medio de una referencia a un arreglo, por lo que ponemos los '[]', para indicar que estamos creando un arreglo anónimo (un arreglo no asociado a ningún nombre de variable)
* el contenido del arreglo serán los elementos de @vec.
Más información sobre estructuras complejas en perldsc (Perl Data Structures Cookbook) y perllol (Manipulating Arrays of Arrays in Perl).
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
8 mensajes
• Página 1 de 1
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 31 invitados