论坛 › Perl › 学习perl点滴(二)

scuess 发表于 2018-8-31 07:13:18

学习perl点滴(二)

#!/usr/bin/perl　　
sub check_required_items {
　　
my $who = shift;
　　
print "$who\n";
　　
my %who_items = map {$_, 1} @_;
　　
my @required = qw(preserver sunserver water_bottle jacket);
　　
for my $item (@required) {
　　
unless ($who_items{$item}) {
　　
print "$who is missing $item.\n";
　　
}
　　
}
　　
}
　　
my @gilligan = qw(red_shirt hat luc water_bottle);
　　
check_required_items('gilligan',@gilligan);

查看完整版本: 学习perl点滴(二)