[Toulouse-pm] perl: comment substituer par une variable?

[jeanmichel.123@free.fr]

Bonjour,

dans un script perl, je souhaite substituer une chaine, par une chaine
disponible dans une variable.

Je l'ai fait avec le bout de code suivant, mais cela ne marche pas très bien.
Problème de ":\" et de casse: Je ne comprends pas pourquoi:

-I=[C\:\\Win16App\\DIAB\\4.4b\\include, C\:\\Win16App\\DIAB\\4.4b\\src,
D\:\\blablabla\\tmp\\src]

devient

-includes-to-ignore=C\:WIN16APP\\diab\\4.4b\\include,C\:WIN16APP\\diab\\4.4b\\src,D\:\\blablabla\\tmp\\src

le bout de script utilisé est le suivant:

Merci d'avance
--------
les bouts de code perl utilisés sont les suivant:

sub machin_conf_replace_param($$$$)
{
   my ($options, $machin_conf, $clef, $valeur) = @_;
   #$$machin_conf =~ s/^$clef=.*/$clef=$valeur/g ;
   $$machin_conf =~ s/$clef=.*/$clef=$valeur/g ;
}

sub machin_conf_get_parameter($$$)
{
   my ($options, $machin_conf, $clef) = @_;
   $$machin_conf =~ m/$clef=(.*)/;
   my $valeur = $1 ;
   return $valeur;
}

# $machin_configuration_content est une référence sur une chaine contenant une
ligne -I=... et une ligne --includes-to-ignore=...

       my $includes = machin_conf_get_parameter( $options,
$machin_configuration_content, '-I');
       $includes =~ s/[][ ]//g ;
       machin_conf_replace_param( $options, $machin_configuration_content,
'-includes-to-ignore', $includes );