Discussion :

[frenchlion]

bonjour,

je vous poste un petit message car il y a quelque-chose que je n'arrive pas à faire et j'aimerais vos lumières.

globalement :

1. j'ai une variable contenant du texte qui peut contenir des patterns spécifiques (du genre %1% ou %2% etc..)

2. j'ai un tableau contenant une ou plusieurs valeurs (infinies)

j'aimerais remplacer chaque pattern de mon texte (j'ai volontairement mis un ordre) par les valeurs de ce tableau.

exemple :
---------

si je met un texte comme "fichier appele %1% et chemin %2% avec options %3% a configurer"

et que j'ai un tableau contenant comme valeurs : ('toto.txt', '/tmp', 'blabla')

j'aimerais éditer la variable contenant mon texte pour que chaque petit wildcard/pattern spécifique que j'ai mis soit remplacé par le contenu des élements du tableau. que ça me donne pour l'exemple :

"fichier appele toto.txt et chemin /tmp avec options blabla a configurer"

j'ai testé ça mais ça ne fonctionne pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
#!/usr/bin/perl
 
my @tab = ('heh', 'hih', 'bla');
$var = "toto %1% text here %2% and there";
 
if ($var =~ /.*%\d%.*/) {
       print "yay\n";
       $var =~ s/%\d%/$tab[\1]/g;
    }
 
print "$var\n";

je ne sais pas trop déjà :
1. si c'est la bonne méthodologie (j'imagine qu'il y a beaucoup plus simple en perl)
2. comment récupérer le contenu du pattern "matché" (je pensais que c'était \1)
3. si ça marcherait avec chaque entrée (ne faut-il pas une boucle plutôt ?)

merci de vos avis

cdt

[frenchlion]

j'ai résolu mon problème "en partie" mais c'est limité à un certain nombre de patterns, que je dois définir auparavant. grâce à une page web que j'ai trouvé, ça fonctionne avec ça (je comprend rien au code d'ailleurs), c'est sale aussi, mais ça marche, en revanche si vous avez une solution pour faire en sorte d'avoir des options illimitées...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
#!/usr/bin/perl
 
my @avail = qw/%1% %2% %3% %4% %5%/;  # je dois les définir avant ici (là je limite à 5)
my @tab = ('heh', 'hih', 'bla');
my $var = "toto %1% text here %2% and there";
 
my %replace;
@replace{@avail} = @tab;
my $pattern = '(' . join('|', map quotemeta, @avail) . ')';
$var =~ s/$pattern/$replace{$1}/g;
 
print "$var\n";

[Lolo78]

Le code crée deux tableaux, un (@avail) avec les textes à chercher et un (@tab) avec les éléments de remplacement.

Il combine ensuite ces deux tableaux dans un hash (%replace) qui contient après sa création quelque chose du genre:

Code :

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

%1% => 'heh', %2 => 'hih', ...

il construit ensuite un motif de recherche qui ressemble à quelque chose comme:

Code :

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

(%1%|%2%|%3%)

(avec en plus des anti-slashes devant les % pour les "echapper", éviter qu'ils ne soient pris pour le sigil d'un hash, par exemple)

Puis l'expression régulière fait les substitutions en remplaçant %1% par la valeur du hash pour %1%. $1 représente la valeur reconnue par l'expression régulière.

C'est assez ingénieux.

J'ai une autre idée, mais ne peux pas tester pour l'instant. Je reviendrai plus tard.

[Lolo78]

OK, l'autre solution à laquelle je pensais. Elle est nettement plus simple, mais repose sur un prérequis important: que les mots de remplacement soient stockés dans le tableau @tab dans l'ordre où les chaînes à remplacer apparaissent dans la chaîne de caractères.

Dans ce cas, on peut simplifier comme suit:

Code :

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

1
2
3
4
5
6
7
8
use strict;
use warnings;
 
my @tab = ('heh', 'hih', 'bla', 'blu');
my $var = "toto %1% text here %2% and %3% there and nothing overthere";
my $i = 0;
$var =~ s/\%\d+\%/$tab[$i++]/g;
print $var;

Ce qui imprime:

Code :

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

1
2
$ perl  substit.pl
toto heh text here hih and bla there and nothing overthere

L'idée est que l'indice ($i) du tableau @tab est incrémenté après chaque substitution réalisée. Pas de limite au nombre d'options.

[Lolo78]

Sinon, si tu préfère t'en tenir à la solution que tu as donnée (trouvée sur Internet) tu peux construire dynamiquement ton tableau d'options pour qu'il n'ait pas de limite. Quelque chose comme cela (non testé):

Code :

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

1
2
3
4
my @tab = ('heh', 'hih', 'bla');
my @avail;
my $i = 1;
push @avail, '%' . $i++ . '%' for @tab;

Le tableau @avail aura le même nombre d'éléments que @tab.

Ou construire dynamiquement le hash %replace.

Ou même te passer du hash, du tableau @avail et de la grosse construction de motif:

Code :

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

1
2
3
4
5
6
7
use strict;
use warnings;
 
my @tab = ('', 'heh', 'hih', 'bla', 'blu'); # 1 élément vide au début pour que les valeurs intéressantes commencent à 1
my $var = "toto %1% text here %2% and %3% there and nothing overthere";
$var =~ s/\%(\d+)\%/$tab[$1]/g;
print $var;

Ce qui m'imprime bien:

Code :

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

1
2
$ perl  substit.pl
toto heh text here hih and bla there and nothing overthere

[frenchlion]

salut

merci pour tes tests c'est sympa, je vais tester tout ça et voir quelle serait la meilleure solution.

en fait je m'aperçoit que ça ressemble un peu à un printf avec des variables.

je reste néanmoins persuadé qu'il doit y avoir un moyen bcp plus simple en perl, c'est sa grande force le text-processing, je vais fouiller un peu

[Lolo78]

Franchement, tu n'as pas dû bien lire ce que j'ai posté, la dernière solution que j'ai proposée tient en une seule ligne:

Code :

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

$var =~ s/\%(\d+)\%/$tab[$1]/g;

(Le reste, ce sont les initialisations pour pouvoir tester.)

Difficile de faire plus court qu'une seule ligne et quand même faire quelque chose d'utile, non?