Impossible d'executer un programme perl avec TK

**pentaracing** · 25/04/2007, 19h52

Bonjours,
Je vous explique la situation. J'utilise un mac et sur un PC sous windows je peut executer un script perl qui utilise le TK alors que sur le mac le meme script me rend la main dans le terminal sans me signaler de soucis seulement il ne me lance pas la fenetre.
Le module Tk est bien installé.
Je ne sais pas comment faire.
D'avance merci.

**Jedai** · 25/04/2007, 20h04

Tu l'exécute dans le débogueur pour repérer à quel moment ça coince.

--
Jedaï

**pentaracing** · 25/04/2007, 20h27

Merci de m'avoir répondu aussi rapidement mais qu'est ce que le debogeur ?

**Jedai** · 25/04/2007, 20h40

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

perl -d script_path

Lis "perldoc perldebug".

--
Jedaï

**pentaracing** · 25/04/2007, 20h48

Voila le message qu'il m'indique

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Tk::MainWindow::CODE(0x212a06c)(/Library/Perl/5.8.6/darwin-thread-multi-2level/Tk/MainWindow.pm:156):
156:     if (Tk::IsParentProcess())
157:      {
  DB<1>

mais je ne comprends pas le code fonctionne sans soucis sous windows mais pas sur mac.

**pentaracing** · 25/04/2007, 21h03

Le problème a l'air de venir de cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
$fenetre = new MainWindow ( ) ;
$fenetre -> title ( "Application 5" ) ;

car j'ai eu le message suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
couldn't connect to display ":0" at /Library/Perl/5.8.6/darwin-thread-multi-2level/Tk/MainWindow.pm line 55.
MainWindow->new() at /Users/avolant/Documents/BTS IG ARLE/DAIGL/Developpement/Progperso/Tk/adresse IP.pl line 48

D'avance merci de m'éclairecir

**Jedai** · 25/04/2007, 21h08

Comment as-tu installé Tk ?

--
Jedaï

**pentaracing** · 25/04/2007, 21h19

J'ai telecharger le paquet, ensuite je l'ai "dézipé" et fait la commande dans le terminal perl Makefile.PL ensuite make. make install
lorsque je fait perl -e 'use Tk' il me rend la main sans soucis.