Comment vérifier si la variable est déclarée à Perl?

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

Vous ne pouvez même pas se référer em> à une variable à moins que cela ne soit déclaré. Lorsque vous demandez

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

Je pense que vous mélangez des concepts "définis" et "déclarés" et "déclara".

Vous demandez "Comment vérifier si la variable est déclarée dans Perl" mais vous vérifiez si une variable est définie. Ce sont deux concepts différents. P>

en Perl si vous utilisez 'user strict' em> Vous vérifiez automatiquement toute variable non déclarée forte> (en utilisant mon strong>, local fort> ou notre strud>). Une fois que vous avez une variable déclarée, vous pouvez tester s'il est défini (avoir une valeur attribuée). P>

Donc, dans votre test, il vous manque une déclaration préalable avant de tester la définition p>

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

Normalement, ce type de code ne doit pas être requis pour un programme sérieux, mais pourquoi non seulement pour le plaisir: (supposant que l'utilisation soit stricte) xxx

#!/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;

Ma solution est #! / usr / bin / perl -l xxx

Vous pouvez utiliser sauf si code> , comme ceci:

use 'strict';

my $var = 'defined';
unless (defined($var)) {
  print "not defined\n";
}

$var = undef;
unless (defined($var)) {
  print "not defined\n";
}