salut,

JE souhaiterais faire une boucle pour tester si une variable est vide, c'est à dire tant que la variable n'est pas renseigner alors je ne continu pas mon code
mais j'ai un soucis ,quand je le lance et que je ne saisi aucune variable(donc je tape entrée),il ne me reaffiche pas le message me demandant de saisir la variable;
et quand je vais voir mon fichier j'ai cela
OS=

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
#!/usr/bin/perl -w
 
use strict;
 
open FILE, ">./fic1.cfg";
print "Saisir variable OS\n";
my $OS=<stdin>;
unless ($OS)
{
print "Saisir variable OS\n";
my $OS=<stdin>;
}
print FILE "OS=$OS\n";
PS : j'ai fait une recherche sur le forum,
je me suis inspiré de cela http://www.developpez.net/forums/sho...highlight=vide
car j'ai tester avec not defined, == "" et eq "" et sa ne fonctionnait pas:


merci