Perl中级第四章课后习题

secce

　　1.下列表达式各表示什么不同的含义：
$ginger->[2][1]   
${$ginger[2]}[1]   
$ginger->[2]->[1]   
${$ginger->[2]}[1]



除第2个表示数组的元素,其他的都表示相同的意义
　　
　　4. 9. 2. 练习2 [30 分钟]
运用书中最后那个版本的check_required_items , 写一个子程序
check_items_for_all , 把一个散列引用作为惟一参数.这个散列引用的键是在
Minnow 船上的所有乘客, 其对应的值是他们各自想带上船的东西。
比如, 这个散列引用可以是这样的：
my @gilligan =. . . gilligan items. . . ;
my @skipper =. . . skipper items. . . ;
my @professor =. . . professor items. . . ;
my %all = (
Gilligan => \@gilligan,
Skipper => \@skipper,
Professor => \@professor,
);
check_items_for_all(\%all);
我们新建的那个子程序要调用check_required_items 来为散列中每个人更新其
必需的装备清单。



my @gilligan = qw(red_shirt hat lucky_socks water_bottle);
my @skipper = qw(blue_shirt hat jacket preserver sunscreen);
my @professor = qw(sunscreen water_bottle slide_rule batteries radio);
my %all = (
Gilligan => \@gilligan,
Skipper => \@skipper,
Professor => \@professor,
);
check_items_for_all(\%all);

sub check_items_for_all {
my $all = shift ;
foreach my $person ( keys %{$all} ) {
check_required_items($person,$all->{$person});
}

}

sub check_required_items{
my $who = shift ;
my $items = shift;
my @required = qw(preserver sunscreen water_bottle jacket);
my @missing = ( );
foreach my $item (@required) {
unless ( grep $item eq $_ ,@$items ) {
print "$who is missing $item. \n";
push @missing,$item;
}
}

if (@missing) {
print "Adding @missing to @$items for $who. \n";
push @$items,@missing;
}

}