Salut Merci pour l'article. J'ai essayé d'utiliser votre script dans mon application GUI.
Actuellement, je suis confronté à un problème. Je ne suis pas en mesure d'appeller la fonction qui est dans le thread.
exemple:

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
sub run_script_tk {
 
     if ($paste_text) {
 
 
    $FunctionName = "run_script";  # He says the procedure to call
 
    @ArgumentsThread = ($paste_text);  # He is given the arguments
 
    $ThreadWork   = 1;             # Asked to work
 
 
 
    #  ===> Modification (Rajout) <=============
 
    # Button is deactivated List Files
 
    #$run_button->configure(-state => "disabled");
 
 
 
    # As long as the thread work, we expect
 
    while ( $ThreadWork == 1 ) {
 
      sleep 0.2;
 
      $f ->update;
 
    }
 
 
 
 
 
    # It reactivates the List Files button
 
    $run_button->configure(-state => "normal");
 
 
 
   }  
 
  return;
 
}
Il mentionne une erreur disant
valeur invalide à la variable partagée
à

Code : Sélectionner tout - Visualiser dans une fenêtre à part
$FunctionName = "run_script";
Je ne suis pas en mesure d'attribuer un nom de fonction à la variable partagée


votre aide est très appréciée. Je travaille sur Ubuntu pour mon interface graphique.