Discussion :

[Perl53]

Bonjour,
j'ai installé le module Tk::JPEG mais dès que je veut lancer un script du même genre que celui de la faq, j'obtiens un message d'erreur que je ne comprends pas :

[djibril]

montre nous ton code

[Perl53]

Voici mon code :

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
#!/usr/bin/perl
use strict;
use warnings;
use Tk;
use Tk::Photo;
use JPEG;
 
# Programme principal
# Creation de la fenetre
my $fenetre = new MainWindow(
  -title      => "button image",
  -background => "white",
);    
 
my $MessageAccueil = "Bonjour tout le monde - bouton image\n\n";
$fenetre->Label( 
  -text => $MessageAccueil,
  -background => "white",  
)->pack();
 
my $ObjImage = $fenetre->Photo( -format => "jpeg", -file => "iNick.jpg" );
my $bouton2 = $fenetre -> Button (
    -image => $ObjImage, 
		-command => sub { exit; },
)->pack();
 
MainLoop();

il se peut aussi que ce soit un problème d'installation du module

[djibril]

Code :

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

use JPEG;

ce n'est pas ça . C'est

Code :

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

use Tk::JPEG;

[Perl53]

ça ne change rien, mon fichier était dans le meme dossier que le module

[djibril]

non, tu n'as pas de module à installer. Tk::JPEG est dans le core de Tk.

[Perl53]

j'ai testé avec use Tk::JPEG et j'obtiens le même résultat

[djibril]

test avec

Code :

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

my $ObjImage = $fenetre->Photo( -file => "iNick.jpg" );

ou

Code :

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

my $ObjImage = $fenetre->Photo( -format => "jpg", -file => "iNick.jpg" );

au lieu de

Code :

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

my $ObjImage = $fenetre->Photo( -format => "jpeg", -file => "iNick.jpg" );

et remets ton code

[Perl53]

rien a faire, toujours le même message
sinon revoilà mon code :

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
#!/usr/bin/perl
use strict;
use warnings;
use Tk;
use Tk::Photo;
use Tk::JPEG;
 
my $fenetre = new MainWindow(
  -title      => "button image",
);    
 
my $ObjImage = $fenetre->Photo( -format => "jpeg", -file => "Nick.jpg" );
my $bouton2 = $fenetre -> Button (
    -image => $ObjImage, 
		-command => sub { exit; },
)->pack();
 
MainLoop();

j'ai enlever quelque truc inutile

[djibril]

moi ça fonctionne. Reinstalle Tk

Code :

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

ppm install Tk -f

[Perl53]

si je réinstalle tk, je vais perdre tous mes modules tk installés depuis que j'ai perl ?? si c'est le cas je vais me passer de Tk::JPEG

[djibril]

non tu ne perdras rien

[Perl53]

je ne peut pas le réinstallé car quand je lance la commande, j'ai "tk is already installed"

[djibril]

fais ce qu'on te dis

ppm install Tk -f

[Perl53]

je l'ai fait :

[djibril]

Tu as quelle version de perl ?

[Perl53]

la 5.8.3

[djibril]

essaye ceci :

ppm upgrade Tk

ou

ppm install Tk --force

[Perl53]

ça ne marche pas tant pis je laisse tomber

[djibril]

Qu'est ce qui ne fonctionne pas ? Tk ?

Déjà, ce n'est pas normal que tu ne puisse pas mettre à jour ta version de Tk. d'un point de vu perl, c'est déjà un souci.
De plus, je te conseil de mettre à jour ta version de perl et de passer à la version 5.8.9. Tu trouveras le lien dans la FAQ.

Résoudre un souci informatique ne veut pas dire l'abandonner. Tu as déjà un souci avec ta version de Perl, ce qui est déjà problématique.

Donc je te conseil ceci :
1- Mise à jour de ta version de perl
2- Rajout des repository comme expliqué dans la FAQ ou tutoriels dvp.com
3- Réinstallation de tes modules

Et ensuite, tu aura déjà une bécanne propre pour travailler.

Car là on tourne en rond avec ta vielle version de perl.

Voilà (ça ne prends pas plus de 10 min pour tout faire )