Script perl RESEAU

Version imprimable

Script perl RESEAU

Bonjour,
Je suis actuellement débutantdans le langage perl, mais j'avance !!!

Voila mon probleme j ai fichier de ce type:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 ****************************************************** ****************************************************** [Groupe_TestA] chaine_A ACC-test 10.45.12.13 ACC-Orange 10.45.12.14 [Batiment_testB] chaine_B ACC-Rilo-6 10.45.12.15 ACC-Rilo-5 10.45.12.16 ACC-Rilo-4 10.45.12.17 [Batiment_testC] chaine_C ACC-Rilo-7 10.45.12.18 ACC-Rilo-8 10.45.12.19 ********************************************************** **********************************************************
Q1: Je souhaite recuperer les scalaires entre crochets pour les ecrire dans un nouveau fichier .

Q2: Puis recupere le terme de chaine_A qui va etre utilisé comme champ de communaute snmp.En bref j en ai besoin commme variable !

Q3: Pour finir j ai besoin de recuperer les @IP une apres l autre pour effectuer des taches snmp et passer ensuite au second terme entre crochet [] et refaire les meme manip.

En bref ce qui est entre crochet correspond a un [groupe] et pour chaque groupe je veux recuperer le champ snmp et effectuer des tache avec les @ip d un meme groupe.

J espere que j ai ete a peu pres clair sinon posez moi vos questions pour avoir des precisions.

Merci d'avance pour votre aide

Jules :oops: :oops: :oops: :oops:

08/03/2006, 17h16
GLDavid

Bienvenue à toi

L'objet du forum n'est pas d'apporter des réponses "toutes prêtes" aux utilisateurs mais des indications. Nous acceptons volontiers de corriger des morceaux de codes et d'aider aux développements du style conseils.
Comme tu es débutant, tu peux toujours te référer à notre FAQ ou à mes cours, ce qui te sera grandement utile pour acquérir rapidement les bases.

@++ et bon Perl
08/03/2006, 17h27
calimero642

Pour faire plus simple est il possible d'extraire une info entre crochet ? Qui est contenue dans un fichier.

merci Jules
08/03/2006, 17h36
djibril

oui en utilsant les expressions régulieres. Regarde dans la FAQ.
courage!! :wink:
08/03/2006, 17h56
calimero642

Oki merci pour ce coup de pouce.
Mais le caractere crochet [ ne sera pas interprete comme une fonction ou un truc du genre lorsque je ferai / [ / ??
Merci Jules
08/03/2006, 18h02
Jedai
Les caractères '[' ou ']' sont des caractères qui sont utilisés dans la syntaxe des regexs, il faut donc signaler au moteur de regex que tu veux les utiliser comme caractères littéraux dans ton cas, en les 'échappant' avec un antislash :
Code:

1 2 m/\[(.*?)\]/;
Bonne chance. (et pose directement une question précise la prochaine fois, tu recevras la réponse bien plus rapidement) :)
--
Jedaï
08/03/2006, 18h04
calimero642

Je vois ca merci je vais maintenant fouille pour savoir ce que c'est que le moteur regex.
A pluche pour la prochaine question
08/03/2006, 18h21
calimero642

Que signifie cette expression ?

Code:

$_[0]

Merci d avance Jules
08/03/2006, 18h55
Woufeil

Salut salut !
Il faut savoir que @_ est un tableau particulier utilisé nottemment pour les paramètres des fonctions que tu appelles.
Si ton $_[0] se trouve dans une fonction, il y a de très fortes chance qu'il représente le premier paramètre passé à cette fonction (rappel : le premier élément d'un tableau @tab est $tab[0]).

Montre nous le bou de code qui contient cette expression, et on pourra t'en dire plus :wink:
08/03/2006, 19h00
Jedai

Le moteur regex est simplement le code qui lit ta regex et la transforme en forme compréhensible par la machine, puis qui l'exécute.

--
Jedaï

Voila j avance dans mes recherches mais je souhaite exploiter ce bout de prog dispo dans le cours mais je n y commprend pas tout !!

Code:

1
2
3
4
5
6
7
8
9
10
@new = ();          # -----C est bien la declaration d un nouveau tableau 
push(@new, $+)    #-----On empile les infos dans le tableau @new
 
while $text =~ m{ #-----tant que le scalaire $text  n est as egal a la valeur de m
"([^\"\\]*(?:\\.[^\"\\]*)*)",? #-----c est cense regrou^pe es guillement moi je voudrais les crochets je remplace dc " par [ puis " par ]
| ([^,]+),?     #-----ca je ne comprends pas 
| ,                #-----ca non plus
}gx;           #----c est quoi ce gx ?
 
push(@new, undef) if substr($text,-1,1) eq ’,’; #--que fait cette ligne .

Ouis je sais ca fait beaucoupe de question mais notez que j avance en faisant mes recherches !!!!!
Merci d'avance pour le coup de pouce
jULES

09/03/2006, 13h39
Woufeil

Citation:

while $text =~ m{ #-----tant que le scalaire $text n est as egal a la valeur de m

Attention !
=~ ne veux pas dire différent de, mais c'est ce que l'on appelle un bind, il lie $text à la regex.

Citation:

| ([^,]+),? #-----ca je ne comprends pas

Le pipe | est un ou : ta regex renvoie une valeur vraie si elle reconnais l'un des motifs donné. Les différents motifs à matcher sont donc séparés par un pipe.

Ensuite, pour le gx, ce sont des options des regex, tu en une liste dans la FAQ Perl. Ici, sauts de lignes et espaces ne sont pas pris en comptes et toutes les occurences sont recherchées.
Le reste des regex, tu dois comprendre je pense Wink

Je crois que la dernière ligne rajoute unfef à la fin du tableau si la dernière valeur de la chaîne $text est une virgule... A vérifier.

€dit : c'est moi ou ce code est particulièrement moche ? J'ai du mal à croire que ça compile, manque un pont virgule après le push, il n'y a pas de bloc après le while...

Si j'ai bien compris, les {} sont les séparateurs du match, donc où sont les accolades du while ?

Citation:

Envoyé par Woufeil

€dit : c'est moi ou ce code est particulièrement moche ? J'ai du mal à croire que ça compile, manque un pont virgule après le push, il n'y a pas de bloc après le while...

Si j'ai bien compris, les {} sont les séparateurs du match, donc où sont les accolades du while ?

Non, ici while est un modificateur d'instruction, accolé au push (donc il ne manque pas de ';' après le push), le code est correct.

Par contre il est assez horrible et illisible pour un support de cours... surtout avec les commentaires en plus.
Code:

1 2 3 4 5 6 7 8 9 10 11 my @new; push(@new, $+) while $text =~ m{ "( [^\"\\]* (?:\\. [^\"\\]* )* )",? | ([^,]+),? | , }gx; push(@new, undef) if substr($text,-1,1) eq ’,’;
Déjà réindenté il a meilleure mine. Ce code reconnaît un certain format de CSV (comma separated value), où l'on peut mettre des ',' dans le contenu d'un des champs, mais en l'entourant de guillemets. Pour mettre un guillemet dans un tel champ, il faut alors "l'échapper" avec un antislash.

Exemple :
"ceci est une virgule : , et un guillemet : \" .",deuxième champ,trois,

Cet exemple contient 4 champs dont le contenu est le suivant :

ceci est une virgule : , et un guillemet : " .
deuxième champ
trois

(on remarque que s'il y a une virgule à la fin, il y a un champ vide, d'où la dernière ligne du script qui vérifie si le dernier caractère est une virgule et rajoute un champ dans @new le cas échéant)

Le modificateur /x sur une regex rend les espaces et les commentaires insignifiant pour le moteur de regex (autrement dit, pour vraiment matcher un espace, il faut utiliser '\s' ou pour être plus précis '\ '). Le modificateur /g indique qu'on veut matcher plusieurs fois : si le contexte de la regex est un contexte de liste, toutes les occurrences sont stockées dans le tableau directement, en contexte scalaire, le moteur de regex se 'souvient' jusqu'où il a matché la chaîne jusqu'ici et reprend le match suivant à partir de ce point.
$+ est le contenu matché par la dernière parenthèse qui a réussi dans le dernier match effectué, cela sert lorsqu'on ne sait pas si on doit utiliser $1 ou $2 parce qu'on a utilisé une alternative '|' comme ici.

--
Jedaï

09/03/2006, 17h37
calimero642
Merci JEDAI pour ton aide,
mais j ai encore des petites questions:

Voici mon code:
Code:

1 2 3 4 5 6 if ( ($ligneA) =~ /\[\S+\]\t+\S/ ) # { print($ligneA); print(" ok \n"); }
Dans mon expression reguliere je voudrai la preciser en selectionnant le contenu en tre crochet [contenu_a_selectionner]

Jules

Code:

1
2
3
4
5
6
 
 if ( ($ligneA) =~ /\[(\S+)\]\t+\S/  ) #
        {
        print "$1\n";
        print " ok \n";
        }

--
Jedaï

10/03/2006, 09h03
calimero642

Trop bon merci !!!!!!!!!Ben maintenant je vais continuer ma tache.

Jules

Ben je continue l'aventure PERL,
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 if ($ligne eq "\n") { $cpt++; } elsif ( ($ligne) =~ /\[(\S+)\]\t+\S/ ) # { print "$1\n"; } elsif ( ($ligne) =~ /[lan/]) # { print ("$1 \n"); }
Voila mon bout de code qui me sort bien mes noms de groupe present entre crochets. Mais j ai sur la meme ligne une chaine caractère que j'aimerais également selectionner qui contien lan. Je ne sais pas si c est la variable $1 qui dans mon deuxieme elsif n est pas bon ou une autre erreur ???
Merci d'avance pour votre aide.
Jules

Citation Perl tous les jours une nouvelle expression régulière.

10/03/2006, 16h45
Woufeil
Oula, tu te complqiues la vie !
Tu cherches une chaine qui comprend de 0 à n caractères quelconques puis les lettres lan puis de 0 à n caractères quelconques, et tu veux afficher cette chaîne :
Code:

1 2 3 4 if ($v =~ m/(.*lan.*)/) { print "$1"; }
Ce code marche très bien. Je te conseille de bien lire la FAQ sur les regex, ainsi que la documentation de Sylvain Lhuillier sur le sujet.

Bon code.

Bonjour à tous pour cette nouvelle semaine de recherche avec PERL !
Voila mon code qui est cense rechercher des nom de groupe entre crochets [] >>ca fonctionne !
Mais dans le meme fichier je souhaite chercher des chaines carateres contenant "..lan.." mais j ai des erreurs et je n'arrive pas a les comprendre.
Est ce que cela provient de la variable $1 ????
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 #!/usr/bin/perl use strict; # Vérification et ouverture du fichier base_Lan.txt pour la lecture open(Fichier_groupe,"< base_Lan_perso") || die ("Vérifiez la présence du fichier base_Lan.txt ou son chemin à la ligne :\n $! "); while ($ligne_= <Fichier_lan> ) { if ( ($ligne_) =~ /\[(\S+)\]\t+\S/ ) # { print "$1\n"; } elsif (($ligne_) =~ /\Wlan/ ) { print ("$1 \n"); } } close Fichier_lan;
----------------------------------------------
Les erreurs :

Global symbol "$ligne_" requires explicit package name at ./test2.pl line 6.
Global symbol "$ligne_" requires explicit package name at ./test2.pl line 8.
Global symbol "$ligne_" requires explicit package name at ./test2.pl line 13.
Execution of ./test2.pl aborted due to compilation errors.

Merci d avance Jules

Si tu mets "use strict;" au début du script il faut que tu déclare toutes les variables avec my() (variable locale) ou our() (variable globale). Ceci permet d'éviter les petites fautes de frappes catastrophique où tu fait une erreur dans un nom de variable, ce qui introduit un bug subtil et parfois difficile à dépister dans les gros programme.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 #!/usr/bin/perl use strict; # Vérification et ouverture du fichier base_Lan.txt pour la lecture open(Fichier_groupe,"< base_Lan_perso") || die ("Vérifiez la présence du fichier base_Lan.txt ou son chemin à la ligne :\n $! "); while ( my $ligne_= <Fichier_lan> ) { if ( ($ligne_) =~ /\[(\S+)\]\t+\S/ ) # { print "$1\n"; } elsif (($ligne_) =~ /\Wlan/ ) { print ("$1 \n"); } } close Fichier_lan;
--
Jedaï

13/03/2006, 11h17
calimero642

Merci !
C'est agreable d avancer a petit pas.
Jules

Mais je continue avec mes questions.
Pourquoi est-ce que je n'arrive pas a rentrer dans la seconde condition (elsif) alors que sur une meme ligne dans la lecture du fichier j ai un

mon fichier
---------------
[groupe] des_tab _et lan_toto
---------------------------------

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
# Vérification et ouverture du fichier base_Lan.txt pour la lecture
open(Fichier_lan,"< base_Lan_perso") || die ("Vérifiez la présence du fichier base_Lan.txt ou son chemin à la ligne :\n $! ");
while ($ligne_fichier = <Fichier_lan> )
{
         if (($ligne_fichier) =~ /\[(\S+)\]\t+\S/ ) #
         {
                print "$1 \n";
         }
 
         elsif ( m/lan/ )
         {
                print ("$1 \n");
         }
}
close Fichier_lan;

13/03/2006, 11h49
calimero642

Re petite question comment puis je gerer la variable $1 et lui donner un nom ?
Merci
Jule's
13/03/2006, 13h31
Jedai
Citation:

Envoyé par calimero642

Mais je continue avec mes questions.
Pourquoi est-ce que je n'arrive pas a rentrer dans la seconde condition (elsif) alors que sur une meme ligne dans la lecture du fichier j ai un

mon fichier
---------------
[groupe] des_tab _et lan_toto
---------------------------------

"elsif(){}" est un raccourci pour "else { if( ){ } }", donc si tu rentres dans le if, tu ne rentres pas dans le else et donc pas dans le elsif. Si tu veux qu'on puisse rentrer dans les deux pour la même ligne, il faut mettre deux if.

Citation:

Envoyé par calimero642

Re petite question comment puis je gerer la variable $1 et lui donner un nom ?
Merci

La variable $1 désigne le contenu capturé par la première paire de parenthèse de la dernière regex. On ne peut pas changer son nom. Mais on peut facilement l'assigner à une variable au nom plus significatif avant d'utiliser cette variable dans la suite du code.
On peut également assigner directement le contenu capturé dans une regex à une variable :
Code:

1 2 my ($in_sbracket) = ($ligne_fichier =~ /\[(\S+)\]\t+\S/)
(attention les parenthèses ont ici leur importance : elle donne le bon contexte à l'expression)

--
Jedaï

Merci pour ton aide JEDAI mais pourquoi est ce que $Com_snmp ne m'affiche pas le nom de la communaute snmp serait ce l'exression reguliere qui n est pas correct ?
Sachant que la boucle est verifiee autant de fois que le champ existe ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
while ($ligne_fichier = <Fichier_lan> )
{
      print("\n");
         if (my ($Groupe)=(($ligne_fichier) =~/\[(\S+)\]\t+\S/ )) # permet de trouver le groupe qui est entre crochets
         {
                print "Nom du groupe [$Groupe]\n"; # affiche lme nom du groupe
         }
 
         if (my ($Com_snmp)= (($ligne_fichier) =~/\].*\n/ )) # permet de trouver la communauté snmp du groupe
         {
                print ("Nom de la communauté SNMP $Com_snmp"); #
         }
}

Merci Jules

13/03/2006, 14h18
calimero642

Rectification sur le dernier POST,

La variable $Com_snmp m affiche 1, est ce que cela provient du faite que l'expression reguliere est verifiée ? 1 pour oui et 0 pour non ?
Mais moi ce que je souhaiterai c est recuperer la valeur correspondant a l expression reguliere.

Merci d avance Jules
13/03/2006, 15h03
Jedai

Tu as oublié les parenthèses capturantes dans la regex...

--
Jedaï
13/03/2006, 15h14
calimero642

Merci JEDAI je viens enfin de comprendre l'utilisation precedente de $1 ou $2 ou $3 etc. C'est vraiment agreable de pouvoir comprendre jours a pres jours les mysteres du langage PERL.
Merci
Jules
13/03/2006, 16h31
calimero642

Maintenant je pe donner mon code qui selectionne les element que je voulais. Mais la question qui suit c est comment faire pour creer une base donnees qui va afficher ses information dans une page html, l'interet c est d avoir le fichier ou je cherche mes infos qui sera alimente a la main et qui permettra d obtenir une page web interactive avec les infos.

Mais voici le code pour ceux que ca peut aider::

[code]

#!/usr/bin/perl

# Vérification et ouverture du fichier base_Lan.txt pour la lecture
open(Fichier_lan,"< base_Lan_perso") || die ("Vérifiez la présence du fichier base_Lan.txt ou son chemin à la ligne :\n $! ");
while ($ligne_fichier = <Fichier_lan> )
{
# print("\n");
if (my ($Groupe)=(($ligne_fichier) =~/\[(\S+)\]\t+\S/ )) # expression reguliere qui permet de trouver le groupe qui est entre crochets
{
print "\n Nom du groupe: [$Groupe]"; # affiche lme nom du groupe
}

if (my ($Com_snmp)= (($ligne_fichier) =~/\]\t+(.*)\n/ )) # expression reguliere qui permet de trouver la communauté snmp du groupe
{
print ("\t Nom de la communauté SNMP: [$Com_snmp] \n"); #
}

if (my ($Nom_switch)= (($ligne_fichier) =~/(\S+)\t+\d+\.\d+\.\d+\.\d+/)) # expression reguliere qui permet de trouver le nom du switch
{
print ("\tNom du switch: [$Nom_switch]"); #
}

if (my ($Addr_ip)= (($ligne_fichier) =~/\S+\t+(\d+\.\d+\.\d+\.\d+)/)) # expression reguliere qui permet de trouver l'@IP de chaque witch
{
print ("\t\t\t Adresse IP: [$Addr_ip]");
print("\n");
}
}
close Fichier_lan;
[\code]

et voila le fichier
[code]

[Groupe_Test] lanxxx

switch-test 10.45.xx.xx
switch-test1 10.45.xx.xx

[Groupe_Serveurs] lanxxx

switch-test1 10.45.xx.xx
switch-test2 10.45.xx.xx
switch-test3 10.45.xx.xx
switch-test4 10.45.xx.xx
switch-test5 10.45.xx.xx
[\code]

et le resultat est plutot sympa

[code]
Nom du groupe: [Groupe_Test] Nom de la communauté SNMP: [lanxxx]
Nom du switch: [switch-test] Adresse IP: [10.45.11.22]
Nom du switch: [switch-test1] Adresse IP: [10.45.22.33]

Nom du groupe: [Groupe_Serveurs] Nom de la communauté SNMP: [lanxxx]
Nom du switch: [switch-test1] Adresse IP: [10.45.33.44]
Nom du switch: [switch-test2] Adresse IP: [10.45.55.66]
Nom du switch: [switch-test3] Adresse IP: [10.45.66.77]
Nom du switch: [switch-test4] Adresse IP: [10.45.88.99]
Nom du switch: [switch-test5] Adresse IP: [10.45.00.11]
[\code]

Merci tous
Jules

Bonjour à tous, juste pour info il fait super beau en Alsace,
voila j'ai une petite question concernant l'écriture dans un fichier et la portee des variables.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
open(Fichier_lan,"< base_Lan_perso") || die ("Vérifiez la présence du fichier base_Lan.txt ou son chemin à la ligne :\n $! ");
open(Fichier_resultat,">resultat_info_switch") || die ("Vérifiez la présence du fichier resultat.txt ou son chemin à la ligne :\n $! ");
while ($ligne_fichier = <Fichier_lan> )
{
         if (my ($Groupe)=(($ligne_fichier) =~/\[(\S+)\]\t+\S/ ))
         # expression reguliere qui permet de trouver le groupe qui est entre crochets
         {
                print "\n Nom du groupe: [$Groupe]";
                # affiche lme nom du groupe
         }
 
         if (my ($Com_snmp)= (($ligne_fichier) =~/\]\t+(.*)\n/ ))
         # expression reguliere qui permet de trouver la communauté snmp du groupe
         {
                print ("\t\t\t Nom de la communauté SNMP: [$Com_snmp] \n"); #
         }
 
        if (my ($Nom_switch)= (($ligne_fichier) =~/(\S+)\t+\d+\.\d+\.\d+\.\d+/))
        # expression reguliere qui permet de trouver le nom du switch
         {
                print ("\tNom du switch: [$Nom_switch]"); #
         }
 
        if (my ($Addr_ip)= (($ligne_fichier) =~/\S+\t+(\d+\.\d+\.\d+\.\d+)/))
        # expression reguliere qui permet de trouver l'@IP de chaque witch
         {
                print ("\t\t\t Adresse IP: [$Addr_ip]");
                print("\n");
         }
        print Fichier_resultat ( "$Groupe;$Com_snmp;$Nom_switch;$Addr_ip;\n");
}
close Fichier_lan;
close Fichier_resultat;

Dans le fichier ou je dois ecrire Fichier_resultat il n y a que les points virgules qui s y ecrivent !!!C'est du au variable qui ne valent plus rien en dehors de leur boucle ?

Merci Jules

14/03/2006, 12h02
calimero642

C'est bon c'était bien du a la protabilite des variables !!!c' était le "my" qui m'empechait de les utiliser !!
Perl >>T es trop fort

Les variables déclaré avec my() sont locales, leur portée est restreinte au bloc où elles sont déclarées. On considère que la condition fait partie du bloc d'une conditionnelle ou d'une boucle. Donc tes variables n'existent pas lors de l'affichage et sont instanciées automatiquement à une valeur 'undef'.

Tu devrais mettre 'use strict;' au début de ton script pour interdire à Perl de déclarer silencieusement des nouvelles variables, cela évite beaucoup d'erreurs. ('strict' est un pragma, c'est à dire qu'il modifie le comportement de perl, l'interpréteur, 'strict' est extrèmement recommandé pour tout le monde).

Pour régler ton problème, il suffit de déclarer les variables préalablement :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 while ($ligne_fichier = <Fichier_lan> ) { my( $Groupe, $Com_snmp, $Nom_switch, $Addr_ip); if (($Groupe)=(($ligne_fichier) =~/\[(\S+)\]\t+\S/ )) # expression reguliere qui permet de trouver le groupe qui est entre crochets { print "\n Nom du groupe: [$Groupe]"; # affiche lme nom du groupe } if (($Com_snmp)= (($ligne_fichier) =~/\]\t+(.*)\n/ )) # expression reguliere qui permet de trouver la communauté snmp du groupe { print ("\t\t\t Nom de la communauté SNMP: [$Com_snmp] \n"); # } if (($Nom_switch)= (($ligne_fichier) =~/(\S+)\t+\d+\.\d+\.\d+\.\d+/)) # expression reguliere qui permet de trouver le nom du switch { print ("\tNom du switch: [$Nom_switch]"); # } if (($Addr_ip)= (($ligne_fichier) =~/\S+\t+(\d+\.\d+\.\d+\.\d+)/)) # expression reguliere qui permet de trouver l'@IP de chaque witch { print ("\t\t\t Adresse IP: [$Addr_ip]"); print("\n"); } print Fichier_resultat "$Groupe;$Com_snmp;$Nom_switch;$Addr_ip;\n"; }
La "solution" d'omettre le my() n'est pas bonne car la déclaration implicite n'instancie que des variables globales, et donc pollue l'espace de nom (et la mémoire, Perl a un GC qui supprimera les variables locales quand tu quittes leur portée sans garder de références sur elles). C'est une bonne pratique que d'utiliser my() et strict, tu ne regretteras jamais de l'avoir adopté par la suite. :P

--
Jedaï

14/03/2006, 16h46
calimero642

Merci c 'est fait dc si j ai bien compris en mettant use strict au debut
et en declarant les variables utilisees avec "my" elles sont innerantes au programmes et c est tout.

Merci
Jules

Bonsoir,
j'ai encore une petite question dans le fichier que je dois scruter il y a des lignes vides et d apres la doc y a moyen de selectionner le fichier et toutes ses lignes quin ne sont pas vides !
Mais je dois avoir une couille car ca me dit merde !!!
Code:

1 2 3 4 5 6 7 8 9 10 while ($Ligne_Fichier = <Fichier_Lan> ) { next if (($Ligne_Fichier) =~ /^$/) { if ( ($Groupe)=(($Ligne_Fichier) =~/\[(\S+)\]\t+\S/ )) { print "\n Nom du groupe: [$Groupe]"; } }
Il me dit qu il y a une erreur de syntaxe ? Mais ou ?

Merci d'avance Jules

14/03/2006, 22h02
Jedai
L'idiome qui permet de sauter les lignes vides est :
Code:

1 2 next if $Ligne_Fichier =~ m/^$/;
(Note bien le ';' à la fin)
à placer au début de la boucle.

'if ... ;' est ici un "modificateur d'instruction", c'est à dire qu'il modifie l'instruction qui précède (ici 'next') pour qu'elle ne s'exécute que si la condition est vrai. Mais il y a aussi d'autre modificateur d'instruction comme 'while ... ;' ou 'foreach ...;'.
'next' est une instruction qui permet de sauter directement à l'itération suivante de la boucle dans lequel il se trouve. Je pense que tu comprends maintenant comment cet idiome fonctionne.

On pourrait écrire :
Code:

1 2 3 4 5 6 while( ){ if( not m/^$ ){ # code normal de la boucle } }
Mais c'est inélégant, on utilise un bloc (donc une portée syntaxique) de plus (et ceci n'est pas gratuit, donc autant éviter).
On préfère donc le joli petit idiome présenté ci-dessus.

--
Jedaï
15/03/2006, 09h27
calimero642

Impecable rspect Mr. Jedai,
et je te remercie pour ta pedagogie car c'est vraiment bien explique il est vrai que j'avais essayé sansa le pt virgule et ben ca plantait !!! Donc encore merci.
J espere que je respecte la deontologie du forum en essayant de chercher avant de demander la reponse toute cuite !!!

Jules
15/03/2006, 09h37
GLDavid

Citation:

Envoyé par calimero642

Impecable rspect Mr. Jedai,
et je te remercie pour ta pedagogie car c'est vraiment bien explique il est vrai que j'avais essayé sansa le pt virgule et ben ca plantait !!! Donc encore merci.
J espere que je respecte la deontologie du forum en essayant de chercher avant de demander la reponse toute cuite !!!

Jules

Pas de problème. Juste si tu peux mettre ton thread en résolu en cliquant sur le bouton :resolu:, ce serait super.

@++

Fuseau horaire GMT +2. Il est actuellement 09h45.

Partenaire : Hébergement Web