bonjour,

j'aimerai modifié mon code pour que celui ci récupère des lignes d'infos tant que le champs date n'est pas vide. ceci est mon code de départ

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
my $dbconnect = DBI->connect($db, $user, $pass) or die "connexion impossible";
print "Veuillez entrer les infos\n";
print "Date\n";
my $Date = <STDIN>;
print "Host\n";
my $Hostname = <STDIN>;
print "Vol\n";
my $Volume = <STDIN>;
print "Label\n";
my $Label = <STDIN>;
print "Size\n";
my $Size = <STDIN>;
print "Freep\n";
my $Frees = <STDIN>;
print "Frees\n";
my $Freep = <STDIN>;
my $req="INSERT INTO checkfs Values('$Date', '$Hostname', '$Volume', '$Label', '$Size', '$Frees', '$Freep')";
$dbconnect -> do($req) or die "requete impossible";
 
$dbconnect->disconnect();

j'aimerai utiliser la condition tant que le champ $Date est différent de 'vide', continue de récupérer les infos et de les insérer dans la table
j'ai essayé while (my ($Date) ==<>){.... } mais échec le perl se ferme de suite
je ne suis pas expert en perl mais si quelqu'un à la solution