如何在Perl哈希表中存储多个值?

直到最近,我已经使用相同的键将多个值存储到不同的哈希中,如下所示:
%boss = (
    "Allan"  => "George","Bob"    => "George","George" => "lisa" );

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

然后我可以引用$ boss(“Bob”)和$ status(“Bob”),但是如果每个键都有很多属性,那么这样做会变得笨拙,我必须担心保持哈希值同步。

有没有更好的方法来存储多个值在哈希中?我可以将值存储为

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

然后拆分弦,但必须有一个更优雅的方式。

解决方法

这是 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

相关文章

忍不住在 PerlChina 邮件列表中盘点了一下 Perl 里的 Web 应用框架(巧的是 PerlBuzz 最近也有一篇相关...
bless有两个参数:对象的引用、类的名称。 类的名称是一个字符串,代表了类的类型信息,这是理解bless的...
gb2312转Utf的方法: use Encode; my $str = "中文"; $str_cnsoftware = encode("utf-8...
  perl 计算硬盘利用率, 以%来查看硬盘资源是否存在IO消耗cpu资源情况; 部份代码参考了iostat源码;...
1 简单变量 Perl 的 Hello World 是怎么写的呢?请看下面的程序: #!/usr/bin/perl print "Hello W...
本文介绍Perl的Perl的简单语法,包括基本输入输出、分支循环控制结构、函数、常用系统调用和文件操作,...