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