如何取消引用返回值？

Question

我不断遇到取消引用的问题，尤其是从函数返回值时。

问题似乎是，每当您返回标量以外的任何内容时，您实际上都是通过引用返回该对象 - 这对我来说很好 - 但是当我们将这些引用传递给其他函数并且我们需要再次访问它们的内部时，我们该如何做这样做正确吗？

我不断遇到类似以下错误：“期望偶数个参数得到引用” 或类似的错误。

是否有一个通用的经验法则可以用来简化整个过程？我几乎希望我不必担心取消引用！

这是我今天早些时候尝试做的事情的一个例子，并遇到了各种取消引用问题，我花了几个小时试图解决这些问题——所以在阅读、尝试和失败之后，我在这里问你内幕消息。

Person对象

Person
 has name [Str]
 has madeby [Str]
 has height [Num]
 has id [Num]

制作Person对象的各种方式

sub person_maker{
 my($this,%options) = @_;
 my $person = Person->new(%options);
   return $person;
}

sub make_person_named_james{
 my($this,$options) = @_;
 my $default = { name => 'James', madeby => 'name' };
   $options = ($options,$defaults); #merge default and options hash
   return($this->person_maker($options));
}

sub make_person_from_id{
 my($this,$id) = @_;
 my $default = { name => 'nameless person', madeby => 'id' };
   $default = ($default,{ id => $id });
   return($this->person_maker($default);
}

sub make_person_from_person{
 my($this,$person) = @_;
 my $person_options = {
   name => $person->name().'_twin',
   height => $person->height(),
   id => $person->id() + 1,
   madeby => 'person'
 };
 return($this->person_make($person_options));
}

• Func返回hash对象 =>它实际上以哈希值的形式返回 引用
• Func 返回哈希引用 =>它实际上返回为 标量
• Func 返回数组对象=>它实际上返回一个数组 引用
• Func 返回数组引用 =>它实际上返回一个标量 ？
• Func 返回一个标量 =>它实际上返回的值 标量？

如果我理解有任何错误，请纠正我。

然后对我来说另一个问题是消耗函数的参数。

根据我返回的内容，这些坏男孩都会表现不同！

    sub myfunc{
      my($self,$args) = @_ # list of arguments (what if the args are mixed?)
  OR
      my($self,$args) = $_ # scalar (this wont work here $args will by undef
  OR
      my $self = shift; # pop the first arg
      my $args = shift; # pop the second arg
  OR
      my $self = $_[0] 
      my $args = $_[1]

加！那里有太多的文档，其中许多已经过时，因此很难准确地弄清楚在这些情况下正确或最好的做法是什么。

如果有人有一张神奇的图表，说明何时使用这些不同的设置，以及如何在给定的情况下取消引用，祝福哈希、哈希引用、标量等。我将永远感激不已，因为我浪费了几个小时试图破译这个。

Answer 1

所有引用都是标量值

取消引用引用需要您知道引用的类型。可以使用 ref 功能。

my $array_ref = [];
print ref $array_ref;  # prints: ARRAY

取消引用不同的类型

• 标量引用：$$scalar_ref

• 数组引用: @$array_ref

• 哈希引用：%$hash_ref

@_

@_ 包含参数的别名。修改@_会导致原始值的修改。务必尽快复制参数并处理这些副本；您可以安全地修改它，而无需更改原始值。

参数和返回值

在 Perl 中，所有函数调用参数都被展平（折叠）为一个列表（从而丢失它们的标识），返回值也是如此。从函数的角度来看，它只能接受单个值列表，并且只能返回单个值列表。

示例场景：

函数的标量参数：

sub foo {
    my $arg = shift;
}

这同样适用于所有引用；引用是标量值。

函数的数组参数：

sub foo {
    my @args = @_;
}

foo( 'bar', 'baz' );
foo( ( 'bar', 'baz' ), ( 'qux', 'spam' ) );  # In no way can the foo subroutine identify that the original arguments were two lists (same with arrays).

函数的哈希参数：

sub foo {
    my %arg = @_;
}

foo( 'bar' => 'baz' );
foo( ( 'bar' => 'baz' ), ( 'qux' => 'spam' ) );  # In no way can the foo subroutine identify that the original arguments were two hashes.

当涉及多个列表（数组）或哈希时，始终传递引用。这样，您就可以单独识别列表。

$_ 和 @_ 是不同

引用您的代码（使用 $_ 错误）：

my($self,$args) = $_ # scalar (this wont work here $args will by undef

$_ 被称为默认变量，在许多没有明确声明变量的情况下使用。另一方面，@_ 仅用于在函数内保存数组参数（别名）。要引用每个元素，我们可以使用：$_[0]、$_[1]等等。

参考资料

• 您可以从 perldoc perlvar< 阅读有关 Perl 中预定义变量的更多信息/a>.我总是从终端使用 perldoc -v '$special_variable' 。如果您使用 Windows，则必须将单引号替换为双引号：perldoc -v "$special_variable"。

• Perl 子例程：perldoc perlsub

• Perl 引用和嵌套数据结构：perldoc perlref< /p>

Answer 2

您错过了使用参考文献的一些关键方面。

从基础开始，Perl 中的标识符是一个匹配 [a-zA-Z_]\w+ 的字符串，排除了 unicode 的复杂性。该标识符可以是裸露的，也可以是带有符号前缀的。

最重要且经常被忽视的标志是 glob，*，它是所有变量的容器（至少在 my 不得不毁掉派对并与众不同，隐藏在垫子中）。

当您有一个名为 foo 的标识符时，*foo glob 包含 foo 可能的所有内容：

$foo as a scalar, a singular value
@foo as an array, a plural value
%foo as a hash, a plural value
&foo as code, singular if a reference \&foo, could be plural if making a call

还有其他类型，但它们不太常见。

在上面的每个示例中，印记都放置在标识符前面，并取消引用存储在 glob *foo 中的引用值。其完整语法有点笨拙 @{*foo{ARRAY}}，因此 Perl 允许您省略令人悲伤的被忽视的 glob 符号并直接使用其他符号。不过，您可以保留括号，${foo} 或 @{foo} 或任何其他符号，其含义与 $foo 相同和 @foo 分别。

事实证明，您不必在印记后面或括号内放置裸字标识符，而是可以放置任何奇异值。

my $scalar_foo_ref = \$foo;

say $scalar_foo_ref;   # prints $foo
say ${$scalar_foo_ref}; # same

印记总是期望取消引用其类型的值（或可以假装的值），否则会抛出错误。

因此，假设以下代码：

my @array = qw(a b c);

say $array[0];  # a
say join ', ' => @array;  # a, b, c

您可以轻松地将其转换为使用引用。首先，您将更改声明以使用引用，这些引用是标量，因此存储在 $foo 中：

my $array = [qw(a b c)]; # square brackets make an array ref
# or
my $array = \@array_of_hopefully_another_name; # \ does too

然后在代码的其余部分中，将字符串 array 替换为引用的名称，$array：

say $array[0];  # a
say join ', ' => @$array;  # a, b, c

就是这样，引用的全部内容。所以，最后到你的代码。采用以下几行：

my $default = { name => 'James', madeby => 'name' };
$options = ($options,$defaults); #merge default and options hash

在第一行中，正确使用 {...} 构造来创建匿名哈希引用。您也可以将其写成极其冗长的形式：

my $default = do {my %hash = (name => 'James', madeby => 'name'); \%hash};

但不要这样做。

下一行是问题发生的地方，也是你需要遵循上面的替换规则的地方。您可能看到如下所示的代码：

%options = (%options, %defaults);

当您更改符号时，一切都出了问题。 perl 看到时实际上做了什么：

$options = ($options, $defaults);

它是否执行，然后丢弃除列表最后一个元素之外的所有内容（在本例中 ($options, ），然后将最后一个元素分配给 lhs 上的标量的 = ，使您的行相当于：

$options = $defaults;

这当然不是您想要的相反，用您的 hashref 名称替换裸字名称：

%$options = (%$options, %$defaults);

这可能会以错误的顺序合并。你的默认值要解决这个问题，只需颠倒这两个选项：

%$options = (%$defaults, %$options);

在您使用引用的代码中应用这些更改，事情应该会再次变得有意义。