Как я могу хранить несколько значений в хэш-таблице Perl?

Хеши хэшей - это то, что perl вы явно просите. В документации hashing Perl есть часть документации hashalgorithm в стиле учебника, которая perl охватывает следующее: Data Structure Cookbook Но, возможно, вам perl-data-structures следует подумать о переходе string-hashing на объектно-ориентированный multiple-value язык. Это своего рода стереотипный hashalgorithm пример для учебных пособий perl-data-structures по объектно-ориентированному perl5 программированию.

Как насчет hashing этого:

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

perl

hash

multiple-value

perl-data-structures

2022-04-17T21:15:25+00:00