Discussion :

[drogba72]

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

[Jedai]

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

Non... Tu ne nous donnes aucun détail sur comment tu lances le code (Avec Active perl ou le perl de Cygwin) et comment il échoue à s'exécuter. En conséquence je n'en sais pas assez pour t'aider (et je ne vais pas chercher les erreurs dans un code de cette taille sans le moindre indice).

NB : Mélanger Cygwin et Active Perl est à éviter. C'est soit l'un, soit l'autre (en fait à mon avis il vaut mieux éviter le perl de Cygwin tout simplement). Par ailleurs si tu es habitué de Perl sous Unix/Linux, tu devrais peut-être utiliser Strawberry Perl plutôt qu'ActivePerl.

EDIT : Parce que je suis une bonne pomme, j'ai tout de même essayé de compiler le script... Ma conclusion est que tu es encore débutant en Perl, non ? Je te conseille de lire notre FAQ, et en particulier la section sur le style en Perl (dans la partie Perl avancé). Tu devrais utiliser les pragma "strict" et "warnings", ils t'auraient dit immédiatement que tu ne déclarais jamais la variable $parent sur laquelle tu essaie d'appeler ProgressBar().

--
Jedaï

[drogba72]

comme je le disait au dessus j'avais commencé sous cygwin mais j'arrivais pas a installer tk donc j'ai installé activeperl et donc c'est avec active perl je double click dessus une fenetre noir se lance 1 seconde et se ferme sans aucune explication moi après c'est la première fois ke je test perl donc tu vois j'essaye de donné le plus grand nombre de détail mais bon enfin j'espere que la j'en ai donné assez

di moi sinon

[drogba72]

excuse moi j'ai mis comme dans tes conseils strict et warning mais je n'ai toujours pas de message d'erreur est ce normal?

[Jedai]

excuse moi j'ai mis comme dans tes conseils strict et warning mais je n'ai toujours pas de message d'erreur est ce normal?

Tu as des messages d'erreur, mais tu ne les vois pas, parce que la console se referme dès que le programme a terminé (erreur ou non). Tu dois soit lancer le programme en console directement, soit utiliser un IDE qui sait lancer un programme Perl et rapporter les erreurs.

--
Jedaï

[drogba72]

ok alors pour la console j'ai testé hélas il me dit erreur de compilation. par contre j'essaye de lancer dans cygwin c'est peut etre pour ca?
Il faut que je lance dans la console windows?

Pour l'IDE je vais installer eclipse
voila pour le moment je n'ai plus de question a si pourrais tu m'indiquer un tuto pour que j'apprenne a developper correctement en perltk stp merci d'avance