学习perl点滴(二)

概述shift用法： #!/usr/bin/perlsub check_required_items { my $who = shift; print "$who\n"; my %who_items = map {$_, 1} @_; my @required = qw(preserver sunserver water_bottle jacket);

shift用法：

#!/usr/bin/perlsub 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);

输入结果：

gilligan

gilligan is missing preserver.

gilligan is missing sunserver.

gilligan is missing jacket.

shift 取数组中第一个变量，并在列表中剔除变量，有点像pop;

总结

以上是内存溢出为你收集整理的学习perl点滴(二)全部内容，希望文章能够帮你解决学习perl点滴(二)所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。