¿Cómo verifico si una variable escalar de Perl se ha inicializado?

Question

¿Es la siguiente la mejor manera de comprobar si una variable escalar se inicializa en Perl, usando defined?

my $var; 

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

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

Answer 1

Perl no ofrece una manera de comprobar si es o no una variable se ha inicializado.

Sin embargo, las variables escalares que no se han inicializado explícitamente con algún valor tienen el valor de undef de forma predeterminada. Tiene razón al decir que defined es la forma correcta de comprobar si una variable tiene o no un valor de undef.

Hay muchas otras maneras. Si desea asignar a la variable si es undef, que el código de ejemplo parece indicar, que podría, por ejemplo, el uso de Perl-o definido operador:

$var //= 'a default value'; 

Answer 2

Si no te importa si está vacío o no, lo es. De lo contrario, puede marcar

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

Answer 3

'defined' devolverá true si una variable tiene un valor real.

Como acotación al margen, en un hash, esto puede ser cierto:

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

Answer 4

depende de lo que planea hacer con el variable ya sea que esté definido o no; a partir de Perl 5.10, puede hacerlo (desde perl51000delta):

Se ha implementado un nuevo operador // (defined-or). La siguiente expresión:

$a // $b 

es simplemente equivalente a

defined $a ? $a : $b 

y la declaración

$c //= $d; 

ahora se puede utilizar en lugar de

$c = $d unless defined $c; 

Answer 5

Depende de lo que trates de hacer. La forma correcta de hacer las cosas C es inicializar las variables cuando se declaran; Sin embargo, Perl is not C, así que uno de los siguientes puede ser lo que quiere:

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 manera de hacer las cosas (no se recomienda):

# 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 
} 

Otra manera de largo aliento de hacer esto es para crear una clase y una bandera cuando la variable ha sido cambiada, lo cual es innecesario.