From 8b2043beb06b5cd3debb0df3a97573d9a7bcc53f Mon Sep 17 00:00:00 2001
From: Mathieu Cousy
Date: Wed, 28 Jul 2021 09:45:47 +0200
Subject: Les remplacements sont désormais globaux; i.e. on peut réutiliser
 plusieurs fois $i

---
 src/transduct | 14 +++++++-------
 1 file 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");
-- 
cgit v1.1