Les remplacements sont désormais globaux; i.e. on peut réutiliser plusieurs fois $i

1 files changed, 7 insertions, 7 deletions

diff --git a/src/transduct b/src/transduct
index e620fe0..40581d6 100755
--- a/src/transduct
+++ b/src/transduct
@@ -168,7 +168,7 @@ sub item {
     my @the_keys = keys (%global_var);
     if (scalar (@the_keys) != 0) {
       foreach my $key (@the_keys) {
-        $msg =~ s/\$$key/$global_var{$key}/;
+        $msg =~ s/\$$key/$global_var{$key}/g;
         print "==> $msg\n";
       }
     }
@@ -210,7 +210,7 @@ sub CB_Callback {
       my @tab_msgs = split (/ , /, $outputtoggles[$num]);
       foreach my $item (@tab_msgs) {
         for (my $i = 0; $i < $max_nb_parameters; $i++) {
-          $item =~ s/\$$i/$tab[$i-1]/;
+          $item =~ s/\$$i/$tab[$i-1]/g;
         }
         $ivy->sendMsgs ($item); 
       }
@@ -221,7 +221,7 @@ sub CB_Callback {
   my @tab_msgs = split (/ , /, $outputs[$num]);
   foreach my $item (@tab_msgs) {
     for (my $i = 0; $i < $max_nb_parameters; $i++) {
-      $item =~ s/\$$i/$tab[$i-1]/;
+      $item =~ s/\$$i/$tab[$i-1]/g;
     }
 
     my @the_keys = keys (%global_var);
@@ -238,14 +238,14 @@ sub CB_Callback {
             $global_var{$key} = $mini_message{$num};
           }
 
-          $item =~ s/\$$key/$global_var{$key}/;
+          $item =~ s/\$$key/$global_var{$key}/g;
         }
       }
     }
 
     if (scalar (@the_keys) != 0) {
       foreach my $key (@the_keys) {
-        $item =~ s/\$$key/$global_var{$key}/;
+        $item =~ s/\$$key/$global_var{$key}/g;
       }
     }
 
@@ -262,12 +262,12 @@ sub CB_Callback {
   foreach my $item (@tab_scripts) {
 
     for (my $i = 0; $i < $max_nb_parameters; $i++) {
-      $item =~ s/\$$i/$tab[$i-1]/;
+      $item =~ s/\$$i/$tab[$i-1]/g;
     }
 
     my @the_keys = keys (%global_var);
     foreach my $key (@the_keys) {
-      $item =~ s/\$$key/$global_var{$key}/;
+      $item =~ s/\$$key/$global_var{$key}/g;
     }
 
     Verbose (__LINE__, 0, "lancement du script $item");