12、Perl编程：闭包转储、文件句柄引用及相关模块使用

Perl编程：闭包转储、文件句柄引用及相关模块使用

1. 闭包转储

1.1 困难方法之后的简便方法

在展示了闭包转储的困难方法后，现在介绍一种更简单的方式。 Data::Dump::Streamer 模块就像是加强版的 Data::Dumper ，它能够处理代码引用和闭包。

1.2 示例代码

use Data::Dump::Streamer;
my @luxuries = qw(Diamonds Furs Caviar);
my $hash = {
  Gilligan     => sub { say 'Howdy Skipper!'     },
  Skipper      => sub { say 'Gilligan!!!!'       },
  'Mr. Howell' => sub { say 'Money money money!' },
  Ginger       => sub { say $luxuries[rand @luxuries] },
};
Dump $hash;

1.3 输出结果

my (@luxuries);
@luxuries = (
        'Diamonds',
        'Furs',
        'Caviar'
      );
$HASH1 = {
       Gilligan     => sub {...},