Multi-dimensional hashes in Perl

Multi dimensional hashes in Perl
编辑删除转载2016-06-07 06:57:28
标签：linux
from: http://perlmaven.com/multi-dimensional-hashes

perl中的结构体​

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper qw(Dumper);

 

my %grades;
$grades{"Foo Bar"}{Mathematics}   = 97;
$grades{"Foo Bar"}{Literature}    = 67;
$grades{"Peti Bar"}{Literature}   = 88;
$grades{"Peti Bar"}{Mathematics}  = 82;
$grades{"Peti Bar"}{Art}          = 99;
print Dumper \%grades;
print "----------------\n";

 

foreach my $name (sort keys %grades) {
    foreach my $subject (keys %{ $grades{$name} }) {
        print "$name, $subject: $grades{$name}{$subject}\n";
    }
}