Discussion :

[PadawanInPerl]

Qu'est qui peut permettre à un exe d'un TK de fonctionner quand celui ci est positionné dans le bon dossier

et

de ne pas fonctionner lorsqu'il n'est pas dans le bon dossier

alors que

cet exe demande et passe en paramètre le répertoire à traiter ?

[djibril]

Le chemin du répertoire est absolu ou relatif ?

[PadawanInPerl]

désolé pour le temps de réponse...ABSOLU

[djibril]

T'as surement un souci d'algorithme.

[PadawanInPerl]

Voici le code...si jamais tu veux bien encore y jeter un coup d'oeil

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
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
#!/usr/bin/perl
 
use strict;
use warnings;
 
use Tk;
use Tk::DialogBox;
use Tk::BrowseEntry;
use File::Copy;
 
my $repertoire;
my $fenetre_principale = MainWindow->new( -title => 'Numérobis' , -background => '#CF0063',);
$fenetre_principale->minsize( 600, 200 );
 
#############################
## POUR CENTRER MA FENETRE A L'ECRAN
#############################
CentrerWidget($fenetre_principale);
 
sub CentrerWidget {
  unless ( scalar(@_) == 1 ) {
    die('Usage : CentrerWidget( $fenetre_principale );');
  }
  my ($Widget) = @_;
  # Height and width of the screen
  my $LargeurEcran = $Widget->screenwidth();
  my $HauteurEcran = $Widget->screenheight();
  # update le widget pour recuperer les vraies dimensions
  $Widget->update;
  my $LargeurWidget = $Widget->width;
  my $HauteurWidget = $Widget->height;
  # On centre le widget en fonction de la taille de l'ecran
  my $NouvelleLargeur = int( ( $LargeurEcran - $LargeurWidget ) / 2 );
  my $NouvelleHauteur = int( ( $HauteurEcran - $HauteurWidget ) / 2 );
  $Widget->geometry( $LargeurWidget . "x" . $HauteurWidget . "+$NouvelleLargeur+$NouvelleHauteur" );
  $Widget->update;
  return;
}
 
#######################
## selection du repertoire à traiter
#######################
my $LabelInput = $fenetre_principale->Label( -text => 'Quel dossier traiter ?  : ' );
my $BoutonInput = $fenetre_principale->Button(
  -text    => ' ... ',
  -command => sub { $repertoire = $fenetre_principale->chooseDirectory(
  -title      => "Mon titre",
  -initialdir => "D:/ScanImages/", 
  -mustexist  => 1,  # Le répertoire sélectionné doit exister
  ); }
);
my $AfficheInput = $fenetre_principale->Label( -textvariable => \$repertoire );
 
#############
## menu déroulant
#############
my $mon_choix;
my $menu_deroulant = $fenetre_principale->BrowseEntry(
  -label => 'Action : ',
  -choices => ['Numéroter les fichiers',
               'Re-numéroter suite à la suppression de fichiers',
               'Re-numérotation sans suppression de fichiers',
               'Contrôle de fin de traitement'],
  -variable => \$mon_choix,
)->pack(qw/ -padx 10 -pady 5/);
 
##############
## bouton action
##############
my $BoutonGO = $fenetre_principale->Button(
  -text    => " Lancer le traitement ",
  -command => [\&go, \$mon_choix],
)->pack(qw/ -padx 10 -pady 5/);
 
#######################
## disposition des éléments
#######################
$LabelInput->grid(  $AfficheInput,$BoutonInput, qw/ -sticky new -pady 25 -padx 15/ );
$menu_deroulant->grid( '-', qw/ -sticky nsew -pady 15 -padx 15/ );
$BoutonGO->grid( '-', qw/ -sticky nsew -pady 25 -padx 15/ );
 
MainLoop;
 
sub go {
  my ($ref_choix) = @_;
 
  my $choix = ${$ref_choix};
  if ( $choix eq 'Numéroter les fichiers' ) { numeroter($fenetre_principale); }
  elsif ( $choix eq 'Re-numéroter suite à la suppression de fichiers' ) {
    renumeroter($fenetre_principale);
  }
  elsif ( $choix eq 'Re-numérotation sans suppression de fichiers' ) { rerenumeroter($fenetre_principale); }
  elsif ( $choix eq 'Contrôle de fin de traitement' ) { controle($fenetre_principale); }
 
}
 
# Création d'une boite de dialogue à la demande avec le label qui change
# Ce dernier retourne des données saisies par l'utilisateurs
sub obtenir_boite_saisie {
  my ( $widget, $label1, $label2 , $label3) = @_;        #
 
  # Création d'un widget de premier niveau
  my $DialogBox = $widget->DialogBox(
    -title          => 'Saisie de données',
    -buttons        => [ 'Soumettez', 'Annulez' ],
    -default_button => 'Soumettez',
  );
 
  my $label_Exp = $DialogBox->Label( -text => $label3, );
 
  # Premier champ de saisie
  my $label_data1 = $DialogBox->Label( -text => $label1, );
  my $un = $DialogBox->Entry();
 
  # Deuxième champ de saisie
  my $label_data2 = $DialogBox->Label( -text => $label2, );
  my $deux = $DialogBox->Entry();
  $label_Exp->grid( $label_Exp, qw/ -padx 30 / );
  $label_data1->grid( $un,   qw/ -padx 10 / );
  $label_data2->grid( $deux, qw/ -padx 10 / );
 
  my $reponse = $DialogBox->Show();
 
  if ( $reponse eq 'Soumettez' ) { return ( $un, $deux ); }
  else { return; }
}
 
sub numeroter {
  my ($widget) = @_;
  my ( $entry_saisie1, $entry_saisie2, $label_Exp ) = obtenir_boite_saisie(
  $widget,
  'Combien de page sont sans numéro : ',
  'Quel est le premier numéro de page visible : ' ,
  "Script à utiliser en premier et une seule fois,\npermet la numérotation continue des pages.\n"
  );
 
  # Récupération des données
  if ($entry_saisie1 and $entry_saisie2) {
    my $num = $entry_saisie1->get;
    my $page = $entry_saisie2->get;
    print "$repertoire";
 
opendir (my $FhRep, $repertoire) or die "impossible d'ouvrir le répertoire $repertoire\n";
my @Contenu = grep { /\.JPG/ } readdir($FhRep);
closedir ($FhRep);
@Contenu = sort @Contenu;
 
my $result1 = $page - $num;
my $new;
 
foreach my $nom ( @Contenu ) {
    $nom =~ /(\d\d?\d?\d?\_(L|R))(\.\w{3})/;
    $new = $result1.$3 ;
    rename ($nom, $new);
    $result1++ ;
    }
### dialogue
#my $mw = new MainWindow( -title => "Boite de dialogue", );
#$mw->minsize( 300,100 );
#my $reponse_messageBox = $mw->messageBox(
#      -icon    => 'info',
#      -title   => 'Mon titre',
#      -type    => 'OK',
#      -message => 'Le traitement est terminé !',
#      )->pack( qw/ -padx 10 -pady 10 / );
#MainLoop;
### dialogue
  }
  return;
}
 
sub renumeroter {
  my ($widget) = @_;
 
  my ( $entry_saisie1, $entry_saisie2, $label_Exp  ) = obtenir_boite_saisie(
  $widget,
  'Quel est le dernier numéro de page correct : ',
  'Quel est le prochain numéro à attribuer : ',
  "Permet une re-numérotation suite à la suppression de pages.\n"
  );
 
  # Récupération des données
  if ($entry_saisie1 and $entry_saisie2) {
    my $page = $entry_saisie1->get;
    my $att = $entry_saisie2->get;
    opendir (my $FhRep, $repertoire)
  or die "impossible d'ouvrir le répertoire $repertoire\n";
my @Contenu = grep { /\.JPG/ } readdir($FhRep);
closedir ($FhRep);
my $nb;
my $ext;
 
$page = $page + 1;
my $new;
@Contenu = sort @Contenu;
foreach my $nom ( @Contenu ) {
    $nom =~ /(\d\d?\d?\d?)(\.\w{3})/;
    $nb = $1;
    $ext = $2;
    if ($nb == $page) {
      $new = $att."A".$ext;
      rename ($nom, $new);
      $att++ ;
      $page++;
      }
 }
opendir (my $FhRepA, $repertoire)
  or die "impossible d'ouvrir le répertoire $repertoire\n";
my @ContenuA = grep { /A\.JPG/ } readdir($FhRepA);
closedir ($FhRepA);
foreach my $nomA ( @ContenuA ) {
    $nomA =~ /(.+)(A)(\.\w{3})/;
    $nb = $1;
    $ext = $3;
    $new = $nb.$ext;
    rename ($nomA, $new);
    }
### dialogue
#my $mw = new MainWindow( -title => "Boite de dialogue", );
#$mw->minsize( 300,100 );
#my $reponse_messageBox = $mw->messageBox(
#      -icon    => 'info',
#      -title   => 'Mon titre',
#      -type    => 'OK',
#      -message => 'Le traitement est terminé !',
#      )->pack( qw/ -padx 10 -pady 10 / );
#MainLoop;
### dialogue
  }
  return;
}
 
sub rerenumeroter {
  my ($widget) = @_;
 
  my ( $entry_saisie1, $entry_saisie2, $label_Exp ) = obtenir_boite_saisie(
  $widget,
  'Quel est le dernier numéro de page/fichier correct : ',
  'Quel est le numero de fichier qui suit (meme s\'il est faux) : ',
  "Permet une re-numérotation parce que des pages ont été sautés.\n"
  );
 
  # Récupération des données
  if ($entry_saisie1 and $entry_saisie2) {
    my $num = $entry_saisie1->get;
    my $page = $entry_saisie2->get;
    opendir (my $FhRep, $repertoire) or die "Ouvrerture de : $repertoire impossible\n";
my @Contenu = grep { /\.JPG/ } readdir($FhRep);
closedir ($FhRep);
@Contenu = sort @Contenu;
my $result = $num + 1;
my $new;
my $nb;
my $ext;
foreach my $nom ( @Contenu ) {
  $nom =~ /(\d\d?\d?\d?)(\.\w{3})/;
  $nb = $1;
  $ext = $2;
  if ($nb == $page) {
    $new = $result.$2 ;
    rename ($nom, $new);
    $result++ ;
    $page++;
    }
}
### dialogue
#my $mw = new MainWindow( -title => "Boite de dialogue", );
#$mw->minsize( 300,100 );
#my $reponse_messageBox = $mw->messageBox(
#      -icon    => 'info',
#      -title   => 'Mon titre',
#      -type    => 'OK',
#      -message => 'Le traitement est terminé !',
#      )->pack( qw/ -padx 10 -pady 10 / );
#MainLoop;
### dialogue
  }
  return;
}
 
sub controle {
  my ($widget) = @_;
 
  my ( $entry_saisie1, $entry_saisie2, $label_Exp ) = obtenir_boite_saisie(
  $widget,
  'Indiquer est le premier numero de fichier : ',
  'Indiquer est le dernier numero de fichier : ',
  "Script permettant de contrôler qu'il ne manque pas de page\nà utiliser à la fin des traitements.\n"
  );
 
  # Récupération des données
  if ($entry_saisie1 and $entry_saisie2) {
    my $premier = $entry_saisie1->get;
    my $dernier = $entry_saisie2->get;
    open OUT, ">Fichiers_Manquants.txt" or die;
    opendir (my $FhRep, $repertoire)
  or die "impossible d'ouvrir le répertoire $repertoire\n";
my @Contenu = grep { /\.JPG/ } readdir($FhRep);
closedir ($FhRep);
@Contenu = sort @Contenu;
my $nb;
my @liste;
my @liste2;
my $total = $dernier - $premier;
$total = $total + 1;
foreach my $nom ( @Contenu ) {
  $nom =~ /(\d\d?\d?\d?)\.\w{3}/;
  $nb = $1;
  push (@liste, $nb);
  }
while ( ! $total < 1 ) {
  if ("@liste" !~ /$dernier/){
    push (@liste2, $dernier);
    }
  $total--;
  $dernier--;
  }
@liste2 = sort @liste2;
print OUT "@liste2\n";
### dialogue
#my $mw = new MainWindow( -title => "Boite de dialogue", );
#$mw->minsize( 300,100 );
#my $reponse_messageBox = $mw->messageBox(
#      -icon    => 'info',
#      -title   => 'Mon titre',
#      -type    => 'OK',
#      -message => 'Le traitement est terminé !',
#      )->pack( qw/ -padx 10 -pady 10 / );
#MainLoop;
  }
  return;
}

[djibril]

Pour m'aider, faudrait que je sache ce qui ne fonctionne pas .

[PadawanInPerl]

en fait je selectionne le repertoire ou doivent être traité les fichiers...
je selectionne le script
je lance

une boite de dialogue faite par tes soins (en plus du reste )
me permet de saisir les valeurs utilisées dans mes SUB
je soumet

ça c'est le fonctionnement...sauf que rien ne se passe a moins que l'exe soit dans le dossier à traiter, un peu comme si le $repertoire était égal à "."

[djibril]

ton souci est bien un problème d'algo.

Si j'ai bien compris, tu cherches à lister les fichier jpg du répertoire et tu utilises opendir. Mais ce dernier te retourne la liste des noms des fichiers qu'il trouve, et non le chemin absolu. C'est à toi de la faire. Sinon, tu peux utiliser ce code de la FAQ pour lister les fichiers d'un répertoire.
donc dans ton cas, le prog marche si l'exe est dans le répertoire des fichiers, mais pas ailleurs car il ne trouve plus les fichiers pendant le traitement.

[PadawanInPerl]

En remplaçant ça :

Code :

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

rename ($nom, $new);

par ça :

Code :

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

rename ("$repertoire/$nom", "$repertoire/$new");

ça va tout de suite mieux...

[djibril]

N'oublie pas le tag résolu !