Я ниже пример кода.:
#!/usr/bin/perl
use Data::Dumper;
my $var=undef;
warn Dumper($var);
if ( $var->{CHECK}->{CHOKE} )
{
print "Success\n";
}
else
{
print "Failure\n";
}
warn Dumper($var);
Выход:
$VAR1 = undef;
Failure
$VAR1 = {
'CHECK' => {}
};
Изначально $var
не определено. Внутри предложения if
,
Я пытаюсь получить доступ к значению от {CHOKE}
до {CHECK}
и до $var
.
Цикл if
работает правильно, как и ожидалось. Но теперь значение $var
содержит значение (хотя и нулевое) для {CHECK}
.
Это ошибка в Perl? Если это ожидаемое поведение, пожалуйста, помогите мне понять это поведение.
Это не ошибка, это функция под названием автовивификация, которая автоматически создает подуровень вашей структуры данных, когда вы пытаетесь получить доступ к более высокому уровню.
Итак, когда вы делаете
if ( $var->{CHECK}->{CHOKE} )
затем создается $var->{CHECK}
.
Функция автовивификации означает, что
$x->{y}
эффективно эквивалентно
( $x //= {} )->{y}
Когда $x
имеет значение undef и вы рассматриваете его как ссылку на хэш, создается хеш, и ссылка на хэш назначается $x
.
Использование без автовивификации; сократит это поведение.
Другие уже показали, что это ожидаемое поведение автовивификации. Если вы этого не хотите, вы можете отключить эту функцию, но вы также можете использовать защиту для проверки ключа, прежде чем углубляться:
if ( exists $var->{CHECK} ) { ... }
Вы можете даже объединить их:
if ( exists $var->{CHECK} and exists $var->{CHECK}{CHOKE} ) { ... }