Como posso armazenar vários valores em uma tabela hash Perl?

Question

Até recentemente, eu estive armazenar vários valores em diferentes hashes com as mesmas chaves da seguinte forma:

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

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

e então eu posso referenciar $boss("Bob") e $status("Bob") mas isso fica complicado se há um monte de propriedades de cada tecla pode ter e eu tenho que preocupar em manter os hashes em sincronia.

Existe uma maneira melhor para armazenar vários valores em um hash? Eu poderia armazenar os valores como

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

e, em seguida, desmontar as cordas com divisão, mas deve haver uma maneira mais elegante.

Answer 1

Esta é a maneira padrão, como Estrutura per 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

Os hashes de hashes é o que você está pedindo explicitamente. Não é uma peça de estilo tutorial da parte documentação da documentação Perl que cobre o seguinte: Estrutura de dados Cookbook Mas talvez você deve considerar ir orientada a objetos. Esta é uma espécie de exemplo estereotipada para tutoriais de programação orientada a objeto.

Como sobre algo como isto:

#!/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

Hashes pode conter outros hashes ou matrizes. Se você quiser se referir a suas propriedades pelo nome, armazená-los como um hash por chave, caso contrário, armazená-los como uma matriz por chave.

Há uma href="http://perldoc.perl.org/perlref.html" rel="nofollow noreferrer"> referência .

Answer 4

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

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

Answer 5

% chums = ( "Allan" => { "Boss" => "George", "Status" => "contratante"}, "Bob" => { "Boss" => "Peter", "Status" => "Part-time"});

funciona muito bem, mas há uma maneira mais rápida para entrar os dados?

Estou pensando em algo como

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

onde x = o número de chaves secundárias após a chave primária, neste caso x = 2, "Boss" e "Status"