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

Question

Hasta hace poco, he estado almacenando múltiples valores en diferentes hashes 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 cada una clave puede tener y tengo que preocuparme por mantener sincronizados los hashes.

¿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 forma más elegante.

Answer 1

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 2

Hashes de hashes es lo que estás pidiendo explícitamente. Hay una parte de documentación de estilo tutorial de la documentación de Perl que cubre esto: Libro de cocina de estructura de datos Pero tal vez deberías considerar ir orientado a objetos. Este es una especie de ejemplo estereotípico para 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 3

Los hashes pueden contener otros hashes o matrices. Si desea hacer referencia a sus propiedades por nombre, almacénelas como un hash por clave; de ??lo contrario, almacénelas como una matriz por clave.

Hay una referencia para la sintaxis .

Answer 4

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

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

Answer 5

% chums = (" Allan " = > {" Boss " = > " George " ;, " Status " = > " Contratista "},            " Bob " = > {" Jefe " = > " Peter " ;, " Estado " = > " Tiempo parcial "});

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

Estoy pensando en algo como

% chums = (qw, x) (Allan Boss George Status Contractor Bob Boss Peter Status Part-time)

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