Problème pour rendre fichier perl exécutable

**bforzeus** · 20/12/2011, 11h54

Bonjour Tout le monde

je viens de lire le tutoriels Perl de djibril sur la création de fichier exécutable dans tout les sens mai sans grand sucé

j'ai essayé presque tout le méthode avec a chaque fois des d'erreur

Perl2Exe: je trouve le même message erreur que dans l'article c'est a dire Warning: Can't locate Encode/ConfigLocal.pm

PerlApp: j'arrive a crée un fichier .exe mai dés que je lui change de dossier il ne fonctionne plus

Module PAR: j'ai le message d'erreur (('pp' n'est pas reconnu en tant que commande interne))

pourriez vous me dire comment je peut contourner ses problème?
merci d'avance

**djibril** · 20/12/2011, 12h21

Bonjour,

Il faudrait nous dire exactement ce que vous avez fait, quel type de programme voulez-vous rendre exécutable, sous quel OS et quels sont les messages d'erreurs. et si possible, nous montrer le programme.

**bforzeus** · 20/12/2011, 12h52

Re
Offet j'ai fais un programme Perl/Tk sous windows et activePerl5.12.4, il prend un fichier et le transforme en un autre fichier en sortie.
les message d'erreur sont différent selon la méthode que j'ai essayé de faire:
perl2exe Warning: Can't locate Encode/ConfigLocal.pm
Module PAR 'pp' n'est pas reconnu en tant que commande interne
PerlApp j'arrive a crée un fichier .exe mai dés que je lui change de dossier il ne fonctionne plus

voici le programme :

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
#! /usr/bin/perl
use Tk;
use Tk::FileSelect;
use Tk::ColorEditor;
use Tk::Photo;
use Tk::JPEG;
use POSIX qw(strftime);
use XML::Simple;
 
$date = strftime "%c", localtime;
####################### DEBUT PROGRAMME 
my $main = MainWindow->new();
$main->minsize(qw(250 250));
$main->title("Projet _");
my ($choix);
$main->Label(-text => "Quelle traitement voulez vous realiser")->pack;
$main->Radiobutton(-text => "Pour Demande _",
		   -variable =>\$choix,
		   -value => "DEMANDE_()",
		   )->pack(-anchor =>'w');
$main->Radiobutton(-text => "Pour Repense _",
		   -variable =>\$choix,
		   -value => "REPENSE_()",
		   )->pack(-anchor =>'w');
$main->Radiobutton(-text => "Pour QUITTER",
		   -variable =>\$choix,
		   -value => "QUITTER",
		   )->pack(-anchor =>'w');
$main->Button 	(-text => "Choix", -command =>
		sub {
		     if ($choix eq "DEMANDE_()") DEMANDE();}
		     if ($choix eq "REPENSE_()") REPENSE();}
		     if ($choix eq "QUITTER") {exit;}	
		 },)->pack;
$main->configure(-background=>'red' );
MainLoop();
 
##########################################
sub DEMANDE{
my $DEMANDE = MainWindow->new();
.....
$DEMANDE->configure(-background=>'cyan');
 
MainLoop();
}
#######################################
sub REPENSE{
my $REPENSE = MainWindow->new();
$REPENSE->minsize(qw(500 500));
$REPENSE->title("Pour Format fichier Repense _");
......
$REPENSE->configure(-background=>'cyan');
MainLoop();
}

**djibril** · 20/12/2011, 13h49

Avez-vous installé le module PAR::Packer ?

**bforzeus** · 20/12/2011, 18h31

Oui, j'ai bien installé le modul PAR:

acker , avec la commande
- ppm install PAR:

acker,

**djibril** · 20/12/2011, 19h06

Quelle est ta version de Perl perl -v ?

**bforzeus** · 20/12/2011, 22h54

je t'informe demain matin, vue que je suis pas sur la même machine,
merci de ton aide

**bforzeus** · 21/12/2011, 09h39

Envoyé par djibril

Quelle est ta version de Perl perl -v ?

Bonjour Djibril
j'ai la version 5.12.4 de Perl

**djibril** · 21/12/2011, 09h50

Peux-tu faire un ppm, l'interface graphique va s'ouvrir. Tu tapes PAR dans le champ de recherche, puis tu fais une capture d'écran et me le montre.

**bforzeus** · 21/12/2011, 10h55

ci dessous l'image

apparament l'installation de PAR:

acker ne sais pas bien effectué, je vais recomancé les etape. en revenche tu pourrai me dire comment faire pour installé GCC aprés l'avoir téléchargé et dézzipé
Merci d'avance

**djibril** · 21/12/2011, 11h23

fais ceci :

Code :

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

1
2
3
4
ppm install MinGW
ppm install CPAN
cpan
cpan>install PAR::Packer

**djibril** · 21/12/2011, 11h27

Lance ce programme :

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
#!/usr/bin/perl
#===============================================================================
# Author : djibril
# Date   : 10/07/2011 11:27:01
# Main   : Installation du module PAR::Packer et ses dépendances
#===============================================================================
use Carp;
use strict;
use CPAN;
use English '-no_match_vars';    # Importer des variables prédéfinies
use ExtUtils::Installed;
 
my @modules_a_installer_ppm
  = ( 'Term-ANSIColor', 'Module-ScanDeps', 'PAR-Dist', 'PAR', 'Getopt-ArgvFile', 'Parse-Binary' );
 
print "=====\nOS : $OSNAME\n=====\n\n";
 
# Windows System
if ( $OSNAME eq 'MSWin32' ) {
  push @modules_a_installer_ppm, 'Win32-Exe';
  push @modules_a_installer_ppm, 'Win32-Process';
  unshift @modules_a_installer_ppm, 'Win32-Console-ANSI';
  unshift @modules_a_installer_ppm, 'MinGW';
 
  # Installation de modules via ppm
  foreach my $module (@modules_a_installer_ppm) {
    print "\n\n[ppm install $module]\n\n";
    system "ppm install $module";
  }
  @modules_a_installer_ppm = ('PAR::Packer');
}
else {
 
  # Other OS : MAC OS, Linux...
  foreach (@modules_a_installer_ppm) { s{-}{::}g; }
  push @modules_a_installer_ppm, 'PAR::Packer';
}
 
# Installation de modules via CPAN
print "install CPAN and reload cpan\n\n";
CPAN::Shell->install('CPAN');    # Mise à jour du cpan
CPAN::Index->reload;
foreach my $module (@modules_a_installer_ppm) {
  print "- Installation de $module\n";
  CPAN::Shell->install($module);
}
 
__END__

**bforzeus** · 21/12/2011, 11h46

Re, Désolé Djibril

j'ai fait une petite erreur en copiant ton script, donc le message d'erreur c'etait pas le bon, j'ai plutôt un autre message d'erreur
offet quand je lance le script j''ai la premier image qui m'indique les module qui sont déjà installé
Nom : script_debut.JPG
Affichages : 475
Taille : 46,6 Ko

Nom : script_debut.JPG
Affichages : 475
Taille : 46,6 Ko

et puis a la fin du déroulement de se script j'ai cette fenêtre
Nom : script_fin.JPG
Affichages : 537
Taille : 125,5 Ko

tu saurai pas c'est quoi le problème exactement et est ce qu'il me manque des module ?
merci encors

**djibril** · 21/12/2011, 14h49

Peux-tu faire un perl -V avec "v" en majuscule. J'ai l'impression que tu as installé perl dans "program files", ce qui est très très mal.

**bforzeus** · 21/12/2011, 15h00

ton impression est juste, j'ai bien installé Perl en Programme files, et voila ce que donne Perl -V
Nom : PERL-V.JPG
Affichages : 521
Taille : 161,7 Ko

peut tu me dire en quoi c'est mal d'installé Perl en Programme files et quelle alternative s'offre a moi? dois je réinstallé Perl ?

**djibril** · 21/12/2011, 15h03

Il faut absolument désinstaller Perl et le réinstaller. Tu dois laisser le répertoire d'installation par défaut, c'est-à-dire C:\Perl.

Donc :

désinstalle Perl ;
supprime le répertoire C:\Program Files\Perl ;
supprime de la variable d'environnement e chemin ;
redémarre ton PC ;
réinstalle Perl ;
redémarre ton PC ;
lance le script que je t'ai filé plus haut.

**bforzeus** · 21/12/2011, 15h29

merci pour tes explication, je vais le désinstallé,
comment faire pour supprime de la variable d'environnement ce chemin?
quelle version de perl me conseil tu ?

et merci bcp

**djibril** · 21/12/2011, 15h36

Après avoir désinstallé perl, clique droit sur poste de travail -> propriété -> onglet avancé -> clic sur variable d'environnement.
Dans les variables systèmes, tu as une variable PATH, tu cherches le chemin pointant vers perl et le supprime.
Pour la version de Perl, tu peux prendre ActivePerl 5.14.2, c'est la dernière.

**bforzeus** · 21/12/2011, 16h54

Merci Bcp Djibril,

j'ai réinstallé PERL comme tu me la dis et avec ton script ,j'ai réussi à crée un fichier exécutable.
en revanche dés que je copier le fichier (.exe) et je lui change de chemin le fichier (.exe) ne marche plus !!!!

est ce que c'est normale? ou c'est moi qui est mal fais les chose encore ?
coment je peut faire pour que le fichier (.exe) fonctionne même quand je lui chang de chemin et même quand je le met sur une machine ou il y a pas perl?

et merci pour ton aide

**djibril** · 21/12/2011, 16h59

Qu'elle est la commande que tu as utilisée pour créer l'exécutable ?
Que veut dire ne fonctionne plus, c'est peut être dû au contenu de ton programme ?
As-tu essayé de mettre en exécutable un simple programme comme celui-ci par exemple :

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
#!/usr/bin/perl
use warnings;
use strict;
use Tk;    # Appel du module Tk
 
# Programme principal
# Création de la fenêtre
my $fenetre = new MainWindow(
  -title      => 'Première fenêtre Tk',
  -background => 'white',
);
 
# Taille minimale de ma fenêtre
$fenetre->minsize( 300, 100 );
 
my $message_accueil = "Bonjour tout le monde\n\nWelcome dans le monde magnifique de Perl/Tk\n\n";
 
# Affichage d'un texte
my $label_accueil = $fenetre->Label(
  -text       => $message_accueil,
  -background => 'white',
)->pack();
 
# Affichage d'un bouton pour fermer la fenêtre
my $bouton = $fenetre->Button(
  -text    => 'Ferme la fenêtre',
  -command => sub { exit; },
)->pack();
 
MainLoop;    # Obligatoire

Problème pour rendre fichier perl exécutable

Modules Perl

Discussions similaires

Partager

Partager