10、Perl 复杂数据结构操作与子例程引用详解

Perl 复杂数据结构操作与子例程引用详解

1. 复杂数据的选择与修改

在处理复杂数据时，我们可以使用一些操作符来进行数据的选择和转换。例如，有如下代码用于比较两个数组元素大小并选择较大值：

my @bigger = map {
  if ($_ > $#y or $x[$_] > $y[$_]) {
    $x[$_];
  } else {
    (  );
  }
} 0..$#x;

这里，如果索引有效，就返回数组对应的值；如果索引无效，则返回空列表，使该元素消失。

我们以一个包含人员携带物品信息的哈希 %provisions 为例：

my %provisions = (
  'The Skipper'   => [qw(blue_shirt hat jacket preserver sunscreen)],
  'The Professor' => [qw(sunscreen water_bottle slide_rule batteries radio)],
  'Gilligan'      => [qw(red_shirt hat lucky_socks water_bottle)],
);

• 查询谁携带的物品少于 5 件 ：

my @packed_lig