揭秘 Perl glob (*)

Question

在这个问题中，发帖者询问如何在一行中执行以下操作：

sub my_sub {
    my $ref_array = shift;
    my @array = @$ref_array;
}

以我对基本 Perl 魔法的了解，我会通过简单地使用类似的东西来避免：

sub my_sub {
    my $ref_array = shift;
    for (@$ref_array) {
      #do somthing with $_ here
    };

    #use $ref_array->[$element] here
}

但是在这个答案中，SO的当地僧侣之一tchrist 建议：

sub my_sub {
  local *array = shift();
  #use @array here
}

当我问时

在尝试学习中级Perl 魔法，我可以问一下，你那是什么？ 这里设置什么？你是 设置对 @array 的引用 arrayref 已传入？如何 你知道你创建了 @array 并且 不是 %array 或 $array？我在哪里可以 了解有关 * 运算符的更多信息 （珀洛普？）。谢谢！

有人建议我将其作为新帖子提出，尽管他确实提供了很好的参考资料。不管怎样，就这样吧？有人可以解释一下什么被分配给什么以及如何创建 @array 而不是 %array 或 $array 吗？谢谢。

Answer 1

对 glob 的赋值

*glob = VALUE

包含一些取决于 VALUE 类型的魔法（即，Scalar::Util::reftype(VALUE) 的返回值）。如果VALUE是对标量、数组、散列或子例程的引用，则仅符号表中的条目将被覆盖。

此习惯

local *array = shift();
#use @array here

当子例程的第一个参数是数组引用时， 用法按记录工作。如果第一个参数是一个标量引用，那么只有 $array 而不是 @array 会受到赋值的影响。

一个小演示脚本，看看发生了什么：

no strict;

sub F {
  local *array = shift;

  print "\@array = @array\n";
  print "\$array = $array\n";
  print "\%array = ",%array,"\n";
  print "------------------\n";
}

$array = "original scalar";
%array = ("original" => "hash");
@array = ("orignal","array");

$foo = "foo";
@foo = ("foo","bar");
%foo = ("FOO" => "foo");

F ["new","array"];        # array reference
F \"new scalar";          # scalar reference
F {"new" => "hash"};      # hash reference
F *foo;                   # typeglob
F 'foo';                  # not a reference, but name of assigned variable
F 'something else';       # not a reference
F ();                     # undef

---

输出：

@array = new array
$array = original scalar
%array = originalhash
------------------
@array = orignal array
$array = new scalar
%array = originalhash
------------------
@array = orignal array
$array = original scalar
%array = newhash
------------------
@array = foo bar
$array = foo
%array = FOOfoo
------------------
@array = foo bar
$array = foo
%array = FOOfoo
------------------
@array =
$array =
%array =
------------------
@array = orignal array
$array = original scalar
%array = originalhash
------------------

附加文档 perlmod 和 perldata。早在引用成为 Perl 一部分之前的日子里，这个习惯用法对于将数组和散列传递到子例程中很有帮助。

Answer 2

诚然，我对 Perl 的了解还不够丰富，我将冒险给出一个答案。 * 运算符分配符号表条目。据我了解，@array、%array 和 $array 都引用字符串“array”的相同符号表条目，但引用该条目中的不同字段：ARRAY、HASH 和 SCALAR 字段。因此，分配 local *array = shift; 实际上将“array”的整个本地符号表条目（包括 ARRAY、HASH 和 SCALAR 字段）分配给调用者中传递的使用内容。