24

最近まで、次のように、同じキーを使用して複数の値を異なるハッシュに格納していました。

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

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

そして、参照できますが$boss("Bob")、$status("Bob")各キーが持つことができるプロパティが多数あり、ハッシュの同期を維持することを心配する必要がある場合、これは扱いにくくなります。

複数の値をハッシュに格納するためのより良い方法はありますか? 値を次のように保存できます

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

その後、スプリットで文字列を分解しますが、もっとエレガントな方法があるはずです。

4

5 に答える 5

26

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
于 2008-10-10T08:00:41.083 に答える
23

ハッシュのハッシュは、明示的に求めているものです。これをカバーする Perl ドキュメントのドキュメント部分のチュートリアル スタイルの部分があります。これは、オブジェクト指向プログラミング チュートリアルの典型的な例のようなものです。

このようなものはどうですか：

#!/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";
于 2008-10-10T08:16:33.610 に答える
4

ハッシュには、他のハッシュまたは配列を含めることができます。プロパティを名前で参照する場合は、キーごとのハッシュとして保存します。それ以外の場合は、キーごとの配列として保存します。

構文のリファレンスがあります。

于 2008-10-10T08:03:13.730 に答える
2 
my %employees = (
    "Allan" => { "Boss" => "George", "Status" => "Contractor" },
);

print $employees{"Allan"}{"Boss"}, "\n";
于 2008-10-10T08:05:32.960 に答える
0

%chums = ( "アラン" => {"ボス" => "ジョージ", "ステータス" => "請負業者"}, "ボブ" => {"ボス" => "ピーター", "ステータス" => "パートタイム"} ）;

うまく機能しますが、データを入力するより速い方法はありますか?

私は何かのようなことを考えています

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

ここで、x = 主キーの後の副キーの数。この場合、x = 2、「ボス」と「ステータス」

于 2013-12-22T21:34:55.757 に答える