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.