Discussion :

[bilout]

bonjour à tous

je cherche à utiliser une variable comme motif de recherche dans un fichier afin de vérifier si le contenu de la variable est déja présent dans mon fichier le problème c'est que si je fais

Code :

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

if ($_ =~ /$variable/) {bloc;}

l'interpréteur va me chercher le motif "$variable" alors que je souhaite qu'il me cherche le contenu...
quel est la bonne syntaxe ?
merci

[2Eurocents]

Bonjour,

je cherche à utiliser une variable comme motif de recherche dans un fichier afin de vérifier si le contenu de la variable est déja présent dans mon fichier le problème c'est que si je fais

Code :

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

if ($_ =~ /$variable/) {bloc;}

l'interpréteur va me chercher le motif "$variable"

Pas du tout !

alors que je souhaite qu'il me cherche le contenu...

Au contraire !

La preuve :

Code :

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

 perl -e '$ch="abcdefgh";$var="cd";if ($ch =~ /$var/) { print "trouve\n";}'

[bilout]

voilà 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
open (FR,'test.conf.save') || die "Pb d'ouverture de \'test\.conf\.save\' : $!";
open (FW,'>>test.conf') || die "Pb d'ouverture de \'test\.conf\' : $! " ;
 
while (<FR>) {
        print FW $_;
        if ($_ !~ /$class/) {
                if ($_ =~ /#class definition/) {
                        print FW "class \"".$class."\" \{\n\tmatch if \(suffix \(option agent\.circuit-id, 1\) = ".$portHexa."\) and \(suffix \(option agent\.remote-id,6\) = ".$mac."\) and \(substring \(option agent\.circuit-id,2, 2\) = ".$vlanPad."\)\;\n\}\n";
                }
        }
}
 
close (FR);
close (FW);

je souhaite que le "print FW" dans le 2ième "if" ne s'effecute que si le contenu de la variable $class passé en paramètre au lancement du script n'est pas déja présent dans le fichier FR que je recopie au fur et à mesure dans FW

or avec cette syntaxe le print s'effectue à chaque fois, ce que je ne veux pas !
je me mélange probablement dans ma syntaxe...je suis novice en perl
j'espère être assez clair dans mes propos...

[Mr6]

Le but de tes if est de tester puis de rajouter des lignes, et pas de ne mettre QUE ces lignes, n'est ce pas ?

[bilout]

oui en fait je réécris un fichier dans un autre en y ajoutant des lignes si elles n'existent pas déjà