#
 print "Not defined" if !defined($x);

результат будет

Не определено

 #
 use strict;
 print "Not defined" if !defined($x);

выдаст ошибку как в вашем вопросе.

Посмотрите: http://perldoc.perl.org/strict.html , где описано, как вы можете импортировать только необходимые ограничения. (Однако использовать строгие 'vars' очень хорошая идея :))

Вы даже не можете ссылаться на переменную, если она не объявлена. Когда вы спрашиваете

defined( $x ) ?

компилятор будет жаловаться: я не знаю, о чем вы спрашиваете, как я могу сказать, что он определен? Он не имеет ссылки на эту переменную, поскольку вы указали, что не хотите, чтобы переменные создавались автоматически по имени.

Если бы strict 'vars'он не был включен - что это по умолчанию, когда вы - use strictто это создаст запись в таблице символов пакета для «x».

Интересно, что без strict 'refs'него также легко проверить, находится ли переменная в таблице символов пакета.

defined( *{ __PACKAGE__ . '::x' }{SCALAR} )

Поскольку нет способа автоматически создать лексическое («мои переменные»), также нет стандартного способа проверить, объявлены ли лексические выражения. Лексические переменные хранятся в «блокноте». Но есть модуль, PadWalkerкоторый может помочь.

Чтобы проверить текущий уровень, вы можете получить хэш пэда, а затем проверить, существует ли он в текущем пэде. Вы также можете вернуться назад через стек (целочисленный аргумент работает примерно так caller), чтобы найти, где был самый последний x.

my $h = peek_my (0);
exists $h->{x};

Я думаю, что вы смешиваете «определенные» и «объявленные» концепции.

Вы спрашиваете «Как проверить, объявлена ​​ли переменная в perl», но затем вы проверяете, определена ли переменная. Это две разные концепции.

В perl, если вы используете «использовать строгий», вы автоматически проверяете любую переменную, не объявленную (используя my , local или our ). Как только у вас есть объявленная переменная, вы можете проверить, определена ли она (назначено значение).

Таким образом, в вашем тесте вы пропускаете предварительную декларацию перед проверкой на определенность

use strict;
my $x;  # you are missing this part
[...] | # code
# your test for define
print defined $x? "defined\n" : "not defined\n";

Пожалуйста, имейте в виду, что тестирование всего за $ x неверно для вашей цели:

my ($x,$y, $z);
$w;         # not declared (use strict will catch it and die)
$x = 0;     # declared and defined BUT if you make a logic test like 'if ($x) {}' then it will be FALSE, so don't confuse testing for **'$x'** and testing for **'defined $x'**
$y = undef; # declared but not defined
$z = 1;     # declared, defined, and logial test TRUE

Наконец, ответ на ксеноррацицид кажется мне ошибочным: он предлагает «если не $ x», что не подходит для тестирования, если оно определено, как я уже говорил ранее. Он также предлагает «если не существует $ x», что неправильно для тестирования скаляров . Тест «существует» предназначен только для ключей хеширования (и не рекомендуется для массивов).

Надеюсь это поможет.

Обычно такого рода код не требуется для серьезной программы, но все же почему бы не просто для удовольствия: (при условии строгого использования)

print "Not defined\n" unless eval 'ref(\$x)';

#!/usr/bin/perl -l

use strict;

# if string below commented out, prints 'lol' , if the string enabled, prints 'eeeeeeeee'
#my $lol = 'eeeeeeeeeee' ;
# no errors or warnings at any case, despite of 'strict'

our $lol = eval {$lol} || 'lol' ;

print $lol;

мое решение #! / usr / bin / perl -l

use strict;

# if string below commented out, prints 'lol' , if the string enabled, prints 'eeeeeeeee'
#my $lol = 'eeeeeeeeeee' ;
# no errors or warnings at any case, despite of 'strict'

our $lol = eval {$lol} || 'lol' ;

print $lol;