Come posso memorizzare più valori in una tabella hash Perl?

Question

Fino a poco tempo fa, ho archiviato più valori in hash diversi con le stesse chiavi come segue:

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

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

e quindi posso fare riferimento a $ boss (" Bob ") e $ status (" Bob ") ma questo diventa ingombrante se ci sono molte proprietà ciascuna chiave può avere e devo preoccuparmi di mantenere sincronizzati gli hash.

Esiste un modo migliore per memorizzare più valori in un hash? Potrei memorizzare i valori come

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

e quindi disassemblare le stringhe con split, ma deve esserci un modo più elegante.

Answer 1

Questo è il modo standard, secondo 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

Gli hash di hash sono ciò che chiedi esplicitamente. C'è una parte della documentazione in stile tutorial della documentazione Perl che tratta questo: Cookbook sulla struttura dei dati Ma forse dovresti considerare di orientarti agli oggetti. Questo è una specie di esempio stereotipato per esercitazioni di programmazione orientate agli oggetti.

Che ne dici di qualcosa del genere:

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

Gli hash possono contenere altri hash o array. Se vuoi fare riferimento alle tue proprietà per nome, memorizzale come hash per chiave, altrimenti memorizzale come un array per chiave.

Esiste un riferimento per la sintassi .

Answer 4

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

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

Answer 5

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

funziona alla grande ma c'è un modo più veloce per inserire i dati?

Sto pensando a qualcosa del genere

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

dove x = il numero di chiavi secondarie dopo la chiave primaria, in questo caso x = 2, " Boss " e " Status "