Discussion :

[tisnoopy]

Bonjour,

J'essaie de faire un code qui permet de remplacer dans un fichier output un ensemble de TAGS dont la correspondance se trouvent dans un fichier de config.

Le fichier input se présente comme suit :

Code :

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

1
2
tonton=@tonton@
tata=@tata@

un tag à substituer est donc délimité par @


Le fichier de config qui sert à la substitution

Code :

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

1
2
tonton=Daniel
tata=Charlotte

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
15
16
17
#!/bin/ksh
 
echo -e "tonton=@tonton@\ntata=@tata@" > input
cp input output
echo -e "tonton=Daniel&Henry\ntata=Charlotte" > config
 
 
while IFS='=' read -r key value
do 
	key='@'$key'@'
	value="`echo \"$value\" | sed -e 's/[\~&]/\\&/g'`" # on echappe les caractères \ ~ &
        echo "substituer $key par $value"
	sed -i -e "s~$key~$value~g" output
done < config
 
echo '-- resultat --'	
cat output

Ca fonctionne...
... excepté si la valeur qui va venir en remplacement est composée du caractère &, ce qui est possible dans mon cas.
J'essaie de l'échapper mais rien à faire.

S'il existe un équivalent Perl qui ignore cette histoire de caractère je suis preneur.
Merci pour votre aide !

[N_BaH]

Bonjour,

rajoute des protections.

ah, les protections des protections dans les regex de sed, awk, et autres...

[BufferBob]

salut,

sed n'est pas une obligation, on peut lui préférer les builtins :

Code :

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

1
2
3
4
5
6
lines="$(<input)"
while IFS='=' read -r key value; do
        echo "--- substituer \"$key\" par \"$value\""
        lines="${lines/@$key@/$value}"
        echo "$lines"
done < config

Edit: j'avais pas fait attention au #!/bin/ksh

sinon avec Perl j'ai pas rencontré de difficulté particulière personnellement :

Code Perl :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
open my $INPUT, "input" or die;
my $lines = join "", <$INPUT>;
 
my $delimiter = q(@);
open my $CONFIG, "config" or die;
while (my $line = <$CONFIG>) {
        chomp $line;
        my ($token, $value) = split /=/, $line;
        print "--- substituer \"$token\" par \"$value\"\n";
        $token = $delimiter . $token . $delimiter;
        $lines =~ s/$token/$value/g;
        print "$lines";
}

au besoin il doit toujours être possible de modifier légèrement soit en rajoutant un $value = qq($value); soit avec un truc du style $lines =~ s/$token/\\Q$value\\E/g (non-testé)

[disedorgue]

Bonjour,
On peut aussi remplacer toute la boucle par 2 sed imbriqués:

Code :

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

1
2
3
$ cat output 
tonton=@tonton@
tata=@tata@

Code :

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

1
2
3
$ cat config 
tonton=Daniel&Henry/shwartz
tata=Charlotte~aux\fraise

Code :

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

1
2
3
$ sed -e 's,[&~/\],\\&,g;s/.*/s\/@&\/g/;s/=/@\//' config | sed -f - output 
tonton=Daniel&Henry/shwartz
tata=Charlotte~aux\fraise

[tisnoopy]

Nickel, ta méthode est la plus fiable, et rapide qui plus est.
Merci !