调用子例程时perl autovivification

Question

调用程序时为什么自动生效不起作用？在这种情况下有没有办法禁止它？

#!/usr/bin/env perl
no autovivification;
use Data::Dumper;

sub testsub { }

my $task;
print Dumper($task);    # $VAR1 = undef;
my $a = $task->{parent_id};
print Dumper($task);    # $VAR1 = undef;
my $b = testsub($task->{parent_id});
print Dumper($task);    # $VAR1 = {}; 

Answer 1

my $task
print Dumper($task)

此时,perl不知道自动生成什么.它将$ task的LVALUE引用传递给Dumper,后者对该引用没有任何作用,因此没有任何反应

my $a = $task->{parent_id}

因为这是副本,所以它被视为RVALUE.因此不需要活泼.

my $b = testsub($task->{parent_id})

要@_使用LVALUE引用正确填充,perl现在必须创建哈希,以便它可以正确传入引用.

为避免这样做,您可以传入引用$task,然后parent_id在必要时访问内部:

sub testsub { my $task_ref = shift; if (something) { $$task_ref->{parent_id} = 3 } }
my $b = testsub(\$task);