Discussion :

[Barokar]

Bonjour,

Je suis débutant en perl, je doit modifier du texte dans un fichier à certain endroit.
Je doit faire plusieurs modification alors j'ai décidé de faire une petite fonction.

Code :

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

1
2
3
4
5
6
7
8
 
sub substitution {
	my ($ligneAModifier, $limite1 ,$limite2 , $motARemplacer, $motDeRemplacement) = @_;
	my ( $val1, $val2) = split(/$limite1/i, $ligneAModifier , 2);
	my ( $val3, $val4) = split(/$limite2/i, $val2, 2);
	$val3 =~ s/$motARemplacer/$motDeRemplacement/g;
	return $val1."$limite1".$val3."$limite2".$val4;
}

Alors avec une version sans fonction cela marche, mais dès que j'utilise la fonction je n'arrive plus à lui faire comprendre le $1 lorsque je l'appelle.

Code :

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

1
2
3
4
5
6
 
if($ligne2 =~ /VBCode/i){
        $ligne2 = substitution($ligne2, "Inherits", "Auto-Generated", "Friend", "\' Friend");
	$ligne2 = substitution($ligne2, "Protected Sub CleanupUserCode", "Sub", "(\\w+\\s*=)", "\' \$1");
	print $FhModifie $ligne2;
}

En effet sans fonction cela me donné le regex s/(\\w+\\s*=)/' $1/g
Or maintenant quand il doit utiliser s/$motARemplacer/$motDeRemplacement/g,
soit je met "\' \$1" pour $motDeRemplacement, et il me remplace dans le fichier par ' $1,
soit je met "\' $1" et la il est pas content car il ne sait pas d'ou sort ce $1,

Comment je peut faire pour passer le $1 et qu'il le prenne en considération en tant que s/(\\w+\\s*=)/' $1/g?

Merci d'avance (je suis nouveau sur le site dont si j'ai fait quelque chose de mal ou autre dites le moi )

[Philou67430]

As-tu essayé ceci :

Code :

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

$ligne2 = substitution($ligne2, "Protected Sub CleanupUserCode", "Sub", qr/(\w+\s*=)/, "' \$1");

Le mot à remplacer est une regexp, donc autant passer une regexp "compilée" avec l'opérateur qr (et pas besoin d'anti-slasher)
Pour le $1, il faut naturellement anti-slasher $, mais pas nécessaire pour la quote simple.

[Barokar]

As-tu essayé ceci :

Code :

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

$ligne2 = substitution($ligne2, "Protected Sub CleanupUserCode", "Sub", qr/(\w+\s*=)/, "' \$1");

Le mot à remplacer est une regexp, donc autant passer une regexp "compilée" avec l'opérateur qr (et pas besoin d'anti-slasher)
Pour le $1, il faut naturellement anti-slasher $, mais pas nécessaire pour la quote simple.

qr/(\w+\s*=)/ Fonctionne mais le probleme avec $1 reste le même.

Dans s/(\w+\s*=)/' $1/g, lorsque je l'utilisais sans fonction,
$1 vaut bien la valeur que (\w+\s*=) à trouvé,
ce qui me remplace, par exemple Can393 = nothing par ' Can393 = nothing.

Alors que avec "' \$1" passé comme paramètre , il ne joue pas le rôle de mémoire pour (\w+\s*=),
mais me remplace Can393 = nothing par ' $1 nothing.

[Philou67430]

Effectivement, le $1 ne peut être inséré que littéralement dans la regexp.

Une manière de contourner le problème :

Code :

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

1
2
 
$ligne2 = substitution($ligne2, "Protected Sub CleanupUserCode", "Sub", qr/(\w+\s*=)/, sub { "' $1" });

et dans substitution, remplacer

Code :

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

$val3 =~ s/$motARemplacer/$motDeRemplacement/g;

par

Code :

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

$val3 =~ s/$motARemplacer/$motDeRemplacement->()/ge;

[Barokar]

Alors la il me remplace par:
CODE(0x25faa90) nothing

Il n'a pas l'air content .

J'ai testé aussi avec

Code :

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

$ligne2 = substitution($ligne2, "Protected Sub CleanupUserCode", "Sub", qr/((\w+\s*=))/, "' ".\$1);

ça me donne ' SCALAR(0x38f0f8) nothing

Avec:

Code :

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

$ligne2 = substitution($ligne2, "Protected Sub CleanupUserCode", "Sub", qr/((\w+\s*=))/, "' ".(\[\$1]));

ça me donne ' REF(0x4bcec0) nothing

Avec:

Code :

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

$ligne2 = substitution($ligne2, "Protected Sub CleanupUserCode", "Sub", qr/((\w+\s*=))/, "' ".([\$1]));

ça me donne ' ARRAY(0x32cd70) Nothing

Enfin bref je pif juste des truc je sais même pas pourquoi

[Philou67430]

Peux-tu me remontrer ton code intégralement avec exactement les modifications que je t'ai proposées ?

(et me dire la version de ton perl)