Как проверить, была ли инициализирована скалярная переменная Perl?

Question

Является ли лучший способ проверить, инициализирована ли скалярная переменная в Perl, используя defined?

my $var; 

if (cond) { 
    $var = "string1"; 
} 

# Is this the correct way? 
if (defined $var) { 
    ... 
} 

Answer 1

Perl не предлагает способ проверить, был ли или не был инициализирован переменной.

Однако скалярные переменные, которые не были явно инициализированы некоторым значением, по умолчанию имеют значение undef. Вы правы о defined, являющемся правильным способом проверить, имеет ли переменная значение undef.

Существует несколько других способов. Если вы хотите присвоить переменной, если это undef, что ваш пример кода, кажется, показывают, вы можете, например, использовать Perl, определенный или оператор:

$var //= 'a default value'; 

Answer 2

Если вам все равно, пусто или нет, это так. В противном случае вы можете проверить.

if (length($str || '')) {} 

Answer 3

«defined» вернет true, если переменная имеет реальное значение.

Как и в сторону, в хэш, это может быть правдой:

if(exists $h{$e} && !defined $h{$e}) 

Answer 4

Это зависит от того, что вы планируете делать с переменная, независимо от того, определена она или нет; по состоянию на Perl 5.10, вы можете сделать это (от perl51000delta):

Новый оператор // (определенный или) был реализован. Следующее выражение:

$a // $b 

просто эквивалентно

defined $a ? $a : $b 

и заявление

$c //= $d; 

теперь может быть использован вместо

$c = $d unless defined $c; 

Answer 5

Это зависит от того, что вы пытаетесь сделать. Правильный способ делать вещи - инициализировать переменные, когда они объявлены; Однако, Perl is not C, поэтому один из следующих может быть то, что вы хотите:

1) $var = "foo" unless defined $var;  # set default after the fact 
    2) $var = defined $var? $var : {...};  # ternary operation 
    3) {...} if !(defined $var);    # another way to write 1) 
    4) $var = $var || "foo";     # set to $var unless it's falsy, in which case set to 'foo' 
    5) $var ||= "foo";      # retain value of $var unless it's falsy, in which case set to 'foo' (same as previous line) 
    6) $var = $var // "foo";     # set to $var unless it's undefined, in which case set to 'foo' 
    7) $var //= "foo";      # 5.10+ ; retain value of $var unless it's undefined, in which case set to 'foo' (same as previous line) 

C способ делать вещи (не рекомендуется):

# initialize the variable to a default value during declaration 
# then test against that value when you want to see if it's been changed 
my $var = "foo"; 
{...} 
if ($var eq "foo"){ 
    ... # do something 
} else { 
    ... # do something else 
} 

Другой многословно способ сделать это создание класса и флага при изменении переменной, что не является необходимым.