diff options
Diffstat (limited to 'src/transduct')
-rwxr-xr-x | src/transduct | 14 |
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"); |