Discussion :

[vince2005]

Comment puis je faire pour tester si ma variable est vide ou pas !!!

my $FicError ;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
if (-s $FicError) { 
	print "variable non vide\n" ; 		
	}

est ce bon , sachant que ce n'est pas un fichier mais une variable

[Arioch]

A tester !!!!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
use strict;
 
my $FicError;
 
print "variable vide\n" if ($FicError eq undef);

Affichera variable vide si $FicError ne se voit rien affecté comme valeur !!!!!

Affichera variable vide si $FicError = ""; !!!!!

Attention au piège : si $FicError contient 0, n'affichera alors pas le contenu de mon print !!!!!

Si tu souhaites également prendre en compte le contenu de ta variable lorsqu'elle contient 0 (différent de vide), alors voici le même code modifié !!!!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
use strict;
 
my $FicError;
 
print "variable vide\n" if ($FicError eq undef || ! $FicError);

Heu sinon, tu sais qu'en cherchant un peu ici, tu trouverais des cours fort utiles pour apprendre les notions de base de Perl ?

[2Eurocents]

Plusieurs possibilités, selon ce que tu entends par "vide".

Si "vide", c'est "égal à zero" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
if ($variable == 0) {} ...
if (not ($variable)) {} ...

Si "vide", c'est "égal à une chaine vide" (encore que la définition de "chaine vide" soit elle aussi sujete à interprétation) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
if ($variable eq "") {} ...
if ($variable =~ m/^\s*$/) {} ...
if (not ($variable)) {} ...

Si "vide", c'est "indéfinie", jamais utilisée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if (not (defined($var))) {} ...

Toutes ces informations se trouvent en de multiples endroits, tant de ce site que du web ... voir par exemple dans la FAQ