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)

[Barokar]

En faite ça fonctionne...

C'est juste que vue que la regex attendait un sub {} ma premiere ligne:

Code :

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

$ligne2 = substitution($ligne2, "Inherits", "Auto-Generated", "Friend", "\' Friend");

ne marchait plus à cause du "\'Friend"

Je ne m'en étais pas rendu compte car je ne lance pas mes code en ligne de commande.
Mais la pour checker vite fait je l'ai fait et il m'a dit:

Can't use string ("' Friend") as a subroutine ref while "strict refs in use

Du coup j'ai mit pareil sur la premier ligne:

Code :

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

$ligne2 = substitution($ligne2, "Inherits", "Auto-Generated", "Friend", sub {"\' Friend"});

Et ça fonctionne

Donc voila je ferais ça pour chaque changement

Bon bah merci beaucoup, et bonne journée!