悠悠博客 (讨论区存档) — 技术永无止尽，未来事在人为

求教：my $items=shift /@skipper;如何理解？【看错了】

[quote]sub check_required_items {
  my $who   = shift;
  [color=Red]my $items = shift;[/color]

  my @required = qw(preserver sunscreen water_bottle jacket);
  for my $item (@required) {
    unless (grep $item eq $_, @{$items}) { # not found in list?
      print "$who is missing $item./n";
    }
  }
}

my @skipper = qw(blue_shirt hat jacket preserver sunscreen);
check_required_items('The Skipper', /@skipper);
[/quote]

[color=Red]my $items = shift;[/color]此时，应该是[color=Red]shift /@skipper;[/color]shift一个数组引用，一个标量？如何理解呢？或许我理解错了?请您指导！谢谢。



---------------------[color=Red][b]昏，看错了，明白了，谢谢！[/b][/color]

[[i] 本帖最后由 mouse.rice 于 2008-6-26 11:12 编辑 [/i]]