Perl -- 数组引用
1、用多个数组来完成一个简单任务 在Minnow开始一个旅程之前（比如一个三小时的远足）， 我们应该事先检查一下每个乘客和乘务人员的行李，保证他们带了旅行所需要的东西。比如说吧，水上安全救生装备。在Minnow船上的每个乘客要生命维持系统，太阳镜和水瓶以及雨衣，代码如下 my @required = qw(preserver sunscreen water_bottle jacket); my @skipper = qw(blue_shirt hat jacket preserver sunscreen); for my $item (@required) { unless (grep $item eq $_, @skipper) { # 数组为空，没有匹配 print "skipper is missing $item\n"; } } 当需要检查其他人的行李时，仍然需要上述代码 my @gilligan = qw(red_shirt hat lucky_socks water_bottle); for my $item (@required) { unless (grep $item eq $, @gilligan) { # not found in list? print "gilligan is missing $item.n"; } } my @professor = qw