Perl--引用<1>

  在C 里，间接的最常见的形式就是指针，它可以让一个变量 保存另外一个变量的内存地址。在 Perl 里，间接的最常
见的形式是引用。


创建引用:

你可以用一个反斜杠创建一个指向任何命名变量或者子过程的引用。（你还可以把它用于一个匿名 标量值，比如 7
或 "camel"，尽管你通常并不需要这些东西。）乍一看，这个操作符的作用类似 C 里的 &（取址）操作符。
下面是一些例子：
$scalarref = \$foo;
$constref = \186_282.42;
$arrayref = \@ARGV;
$hashref = \%ENV;
$coderef = \&handler;
$globref = \*STDOUT;


8.3.7 闭合（闭包）

我们早些时候谈到过用一个没有名字的 sub {} 创建匿名子过程。你可以把那些子过程看作是在 运行时定义，这就
意味着它们有一个生成的时间和一个定义的地点。在创建子过程的时候，有些变量 可能在范围里，而调用子过程的
时候，可能有不同的变量在范围里。
先让我们暂时忘掉子过程，先看看一个指向一个词法变量的引用：
{
my $critter = "camel";
$critterref = \$critter;
}
$$critterref 的数值仍将是“camel”，即使在离开闭合的花括弧之后 $critter 消失了也如此。 但是 $critterref 也
可以指向一个指向了 $critter 的子过程：
{
my $critter = "camel";
$critterref = sub { return $critter };
}

[oracle@jhoa 2]$ cat 6.pl 
{
my