que - perl Únete a la matriz de referencia

matriz de referencia castellano 5

Question

Soy nuevo en Perl.

Estoy tratando de usar join con una matriz de referencia, pero no está funcionando.

Aquí está mi código.

my $arr = {
     ''items'' => (''home'', ''chair'', ''table'')
};

my $output = join('','', $arr->{''items''});

print $output;

Está imprimiendo

table

en lugar de

home,chair,table

¿Alguien puede ayudarme en este sentido?

Answer 1

En Perl, los parens no crean matrices. Solo clasifican la precedencia. El hashref

{ ''items'' => (''home'', ''chair'', ''table'') }

es lo mismo que

{ ''items'' => ''home'', ''chair'' => ''table'' }

Si quiere poner una matriz en un hash, necesita usar un arrayref, que puede crear con [ ... ] :

my $hash = { ''items'' => [''home'', ''chair'', ''table''] }

Ahora si ejecuta su código, obtendrá algo como

ARRAY(0x1234567)

como salida. Esta es la forma en que se imprimen las referencias . Necesitamos desreferenciarlo para unir los elementos. Podemos hacerlo con el operador de desreferencia @{ ... } array. Entonces:

print join('','', @{ $hash->{items} }), "/n";

Para obtener más información sobre referencias y estructuras de datos complejas en Perl, lea

• perlreftut y luego
• perldsc .