[Tk] problème avec System
Salut!
J'ai un tout petit soucie mais ça m'embête!...
Je voudrais faire en sorte que lorsque l'on appuis sur un bouton, sa appel un script Perl préalablement créer.
Voila l'extrait de mon script TK concerné.
Code:
1
2
3
4
5
6
7
8
9
| $menu_App = $barre_menu -> Menubutton (
-font => "{batang} 8 {bold}" ,
-text => 'Applications' ,
-tearoff => 0 ,
-menuitems => [
[ 'command' => 'Récup Log Tina',
-command => system ("U/...../Script Final Tina.pl")]
]
) ; |
Le problème c'est que SYSTEM s'exécute dans le lancement du script TK... et non lorsque j'appuie sur le bouton..
J'ai une solution où je met system dans un subroutine et faire en sorte que le bouton appel la subroutine et non directement system.... mais je voudrais éviter de surcharger mon script avec des subroutine qui je pense sont inutiles ici...
Merci d'avance pour vos réponses!
