¿Cómo puedo almacenar múltiples valores en una tabla hash Perl?

multiple-value perl-data-structures

Question

Hasta hace poco, he estado almacenando varios valores en hash diferentes con las mismas claves de la siguiente manera:

%boss = (
    "Allan"  => "George",
    "Bob"    => "George",
    "George" => "lisa" );

%status = (
    "Allan"  => "Contractor",
    "Bob"    => "Part-time",
    "George" => "Full-time" );

y luego puedo hacer referencia a $boss("Bob") y $status("Bob") pero esto se vuelve difícil de manejar si hay muchas propiedades que puede tener cada clave y tengo que preocuparme por mantener los hashes sincronizados.

¿Hay una mejor manera de almacenar múltiples valores en un hash? Podría almacenar los valores como

        "Bob" => "George:Part-time"

y luego desmonte las cuerdas con división, pero debe haber una manera más elegante.

Answer 1

% chums = ("Allan" => {"Boss" => "George", "Estado" => "Contratista"}, "Bob" => {"Jefe" => "Peter", "Estado" => " Medio tiempo"} );

funciona bien, pero ¿hay una forma más rápida de ingresar los datos?

Estoy pensando en algo así como

% chums = (qw, x) (Allan Boss George Contratista de estado Bob Boss Peter Status a tiempo parcial)

donde x = el número de claves secundarias después de la clave principal, en este caso x = 2, "Jefe" y "Estado"

Answer 2

Esta es la forma estándar, según perldoc perldsc .

~> more test.pl
%chums = ( "Allan" => {"Boss" => "George", "Status" => "Contractor"},
           "Bob" => {"Boss" => "Peter", "Status" => "Part-time"} );

print $chums{"Allan"}{"Boss"}."/n";
print $chums{"Bob"}{"Boss"}."/n";
print $chums{"Bob"}{"Status"}."/n";
$chums{"Bob"}{"Wife"} = "Pam";
print $chums{"Bob"}{"Wife"}."/n";

~> perl test.pl
George
Peter
Part-time
Pam

Answer 3

Hashes of hashes es lo que estás pidiendo explícitamente. Hay una pieza de documentación del estilo del tutorial que forma parte de la documentación de Perl que cubre esto: Libro de cocina de estructura de datos. Pero tal vez debería considerar ir orientado a objetos. Este es un ejemplo estereotípico para los tutoriales de programación orientada a objetos.

Qué tal algo como esto:

#!/usr/bin/perl
package Employee;
use Moose;
has ''name'' => ( is => ''rw'', isa => ''Str'' );

# should really use a Status class
has ''status'' => ( is => ''rw'', isa => ''Str'' );

has ''superior'' => (
  is      => ''rw'',
  isa     => ''Employee'',
  default => undef,
);

###############
package main;
use strict;
use warnings;

my %employees; # maybe use a class for this, too

$employees{George} = Employee->new(
  name   => ''George'',
  status => ''Boss'',
);

$employees{Allan} = Employee->new(
  name     => ''Allan'',
  status   => ''Contractor'',
  superior => $employees{George},
);

print $employees{Allan}->superior->name, "/n";

Answer 4

Hashes puede contener otros hashes o matrices. Si desea hacer referencia a sus propiedades por su nombre, guárdelas como un hash por clave; de ​​lo contrario, guárdelas como una matriz por clave.

Hay una referencia para la sintaxis .

Answer 5

my %employees = (
    "Allan" => { "Boss" => "George", "Status" => "Contractor" },
);

print $employees{"Allan"}{"Boss"}, "/n";