Bonjour,

je suis débutant en perl et j'avoue pas tout comprendre

Voila je code sous xp et dans un premier temps j'ai installé cygwin pour pouvoir mettre en place les modules cpan dont j'ai besoin mais après il me fallait tk donc j'ai installé active perl tk fonctionne j'ai donc commencé a codé enfin...

Et derrière mon code ne s'éxécute pas pouvez vous me dire pourquoi svp?


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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
 #!/usr/local/bin/perl
use Tk;	 #Utilisation de Tk
use Tk::ProgressBar;
 
#Définition de notre fonction de fermeture de l'application
sub Quitter 
{
    exit(0);
}
 
#Création de la fenêtre principale
$fen = MainWindow->new();
 
#Définition de la taille min de la fenêtre
$fen->minsize('500','300');
 
#Définition du title de la fenêtre
$fen->title("Islo People");
 
#Création de la barre de menu
$barre_menu = $fen->Frame(-relief => 'groove' , -borderwidth => 2);
 
#Création de la barre du menu général
$menu_gen = $barre_menu->Menubutton(
                                     -text => 'Menu' ,
                                     -font => '{Garamond} 10',
                                     -tearoff => 0 ,
                                     -menuitems => [
                                                     [ 'command' => 'Quitter' ,
                                                       -font => '{Garamond} 10',
                                                       -command => \&Quitter
                                                     ]
                                                   ]
                                   );
 
#Affichage du menu général à gauche
$menu_gen->pack(-side => 'left');
 
#Affichage de la barre de menu en haut de la fenêtre
$barre_menu->pack(-side => 'top', -anchor => 'n', -fill => 'x');
 
#Ajout du label Hello World
$fen->Label(
             -text => "Islo people" ,
             -font => '{Garamond} 10',
           )->pack(
                    -anchor => 'ne',
                    -fill => 'x'
                  );
 
 
    $progress = $parent->ProgressBar(
        -width => 200,
        -length => 20,
        -anchor => 's',
        -from => 0,
        -to => 100,
        -blocks => 10,
        -colors => [0, 'green', 50, 'yellow' , 80, 'red'],
        -variable => \$percent_done
    );
 
    $progress->value($position);
 
#Création de notre barre de statut à l'aide d'un Label
$barre_statut = $fen->Label(-relief => 'groove', -text => "Islo people", -font => '{Garamond} 10');
 
#On l'ajoute en bas de la fenêtre afin de lui donner l'effet barre de statut
$barre_statut->pack( -side => 'bottom', -fill => 'both');
 
MainLoop;



aidez moi svp

merci d'avance