Discussion :

[calimero642]

Bonjour a tous,
Je voulais savoir si ce que j ai codé est correct et surtout ca fait bien ce que je pense !!

Voila mon code

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
21
22
23
 
unless ((@Champ_location_vide) =~ m/^$/)
                {
                        foreach (@Champ_location_vide)
                        #
                        {
                                #On recupere dans l ordre : $1=Nom, $2=@IP
                                push (@Tab_Champ_location_vide, $1, $2 ) if(/(.*);(\d+\.\d+\.\d+\.\d+);.*;.*;.*;.*;.*;.*;/);
                                # l'on place dans un tableau
                                #le push permet de rajouter des lignes dans
                                #le tableau en fonction du nombre d index matché
                        }
                #}
                        print Fichier_pour_mail "\n#####################################\n";
                        print Fichier_pour_mail "#  Champ Syslocation     vide      ##\n";
                        print Fichier_pour_mail "#####################################\n";
 
                        for (my $A=0;$A<=($#Tab_Champ_location_vide);$A)
                        {
                                print Fichier_pour_mail "\n$Tab_Champ_location_vide[$A] $Tab_Champ_location_vide[$A+1]\n";
                                $A=$A+2;
                        }
                }

La ligne unless .... veut bien dire que si le tableau @Champ_location_vide ne contient rien on ne rentre pas dans la boucle ???
Le probleme c est que meme si il est vide on y rentre alors pourquoi ?

Merci d avance Jules

[spirit_epock]

Bonjour,

La ligne unless .... veut bien dire que si le tableau @Champ_location_vide ne contient rien on ne rentre pas dans la boucle ???

Perdu
Ton script quoi qu'il se passe va executer l'instruction unless jusqu'à ce que la condition soit vraie.

Met un if devant pour faire un test
a+

[Invité]

Pourquoi une regex ?

Ceci fonctionnerait mieux :

Code :

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

1
2
3
unless (@toto) {
	print "vide\n";
}

Si @toto est vide, le print s'effectue. Sinon, non.

[calimero642]

Mais ou est le test si c est vide ou non ?
Que signifit exacteemnt unless ?
Merci Jules

[calimero642]

Oupps oublie;

Et si j ai plusieur variable qui doivent etre vide je l ecris comment ?
jules

[Invité]

Unless = à moins que.

Donc, "à moins que le tableau contienne quelque chose, print vide"
Donc le le tableau contient quelque chose, ne fais pas le print.

C'est la notion inverse du if.

[Jedai]

Dans un contexte scalaire (une addition, une condition booléenne...), l'expression "@tableau" renvoie le nombre d'élément du tableau. En Perl 0 est faux et toute autre nombre est vrai, donc "@tableau" sera faux si @tableau est vide. Donc unless( @tableau ) signifie "sauf si @tableau n'est pas vide" soit "si @tableau est vide".

--
Jedaï