Ouverture de fichier a travers perl/TK

**PadawanInPerl** · 06/05/2010, 11h13

Hello,

petit souci,...je suis parti d'un script perl qui fonctionné et j'ai décidé de faire les entrées par perl TK...

je récupère avec ce type là:

Code :

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

1
2
$fenetre_principale->Label( -text => 'Quel fichier traiter ?  : ')->pack(-fill=>'both');
my $input = $fenetre_principale->Entry( )->pack(-fill=>'both');

je lance après la saisie comme cela:

Code :

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

1
2
$fenetre_principale->Button(-text => "GO !", -command => \&feu)->pack;
MainLoop;

j'ai fait un sub de mon script qui fonctionné en pensant naïvement que ça irait

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
sub feu{
chomp $input;
 
chomp $che;
if ($che!~/\/$/){$che.="/";}
while ($line=<IN>)
{
  chomp $line;
  $url=$zone=$pdf='';
 
  if ($line=~/^toto/){
    $line=~/(toto).*\/([^\/]*\.pdf)/;
    $zone=$1;
    $pdf=$2;
    if ($pdf=~/ /){
      $pdf=~s/ /%20/g;
      $url=$zone.$che.$pdf;
      print OUT $url."\n";
      }
    else{
      $url=$zone.$che.$pdf;
      print OUT $url."\n";
      }
   }
 
else{print OUT $line."\n";}
 
}
 
}

bien évidemment cela ne marche pas et je ne sais pas ou mettre ça :

Code :

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

1
2
open IN,'<:encoding(utf8)',"$input";
open OUT,'>:encoding(utf8)',"$output";

Merci d'avance...

**djibril** · 06/05/2010, 13h00

Essaye de jeter un coup d'oeil sur le FAQ Perl/Tk et de mieux reformuler ta demande, je n'ai pas tout saisie.

**PadawanInPerl** · 07/05/2010, 08h09

tel que je t'ai présenté mes lignes de code...si je place mes deux "open" dans le sub...

j'ai comme message d'erreur :

tk::error at chemin ...(ligne de mon open d'ouverture)
tk callback for .button
tk::_ANON_ at chemin/tk.pm line 250
tk::Button::butUp at chemin/Button.pm line175
<ButtonRelease-1>
<command bound to event>

**djibril** · 07/05/2010, 08h28

$input n'est pas un fichier et $output, je ne sais pas ce que c'est .

**PadawanInPerl** · 07/05/2010, 08h50

bon,

Alors comment faire pour récupérer un nom en saisie qui me permette d'ouvrir un fichier txt existant ?

Parce que je pensais faire cela avec ce script...prendre un nom en saisie. puis m'en servir pour ouvrir mon fichier...

$output est mon fichier de sortie construit sur la mm base que $input...

**djibril** · 07/05/2010, 09h06

C'est pour cela que je t'ai demandé de regarder la FAQ pour voir comment on crée et récupère un champ de saisie, tu as la réponse ici. Ton $input est un objet et tu dois utiliser la méthode get pour pouvoir extraire la saisie.

**PadawanInPerl** · 07/05/2010, 09h35

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
my $fenetre_principale = MainWindow->new( -title => 'Test de graph' );
 
$fenetre_principale->Label( -text => 'Quel fichier traiter ?  : ')->pack(-fill=>'both');
my $input = $fenetre_principale->Entry( )->pack(-fill=>'both');
 
 
$fenetre_principale->Label( -text => 'Quel nom en sortie ?  : ')->pack(-fill=>'both');
my $output = $fenetre_principale->Entry( )->pack(-fill=>'both');
 
 
$fenetre_principale->Label( -text => 'Quel est le chemin du dossier ? : ')->pack(-fill=>'both');
my $che = $fenetre_principale->Entry( )->pack(-fill=>'both');
 
$fenetre_principale->Button(-text => "GO !", -command => sub { 
    print $entry->get,"\n";
  },
  ,)->pack;
MainLoop;
   #
 
sub feu{
chomp $input;
 
open IN,'<:encoding(utf8)',"$input";
open OUT,'>:encoding(utf8)',"$output";
 
chomp $che;
if ($che!~/\/$/){$che.="/";}
while ($line=<IN>)
{
  chomp $line;
  $url=$zone=$pdf='';
 
  if ($line=~/^hug/){
    $line=~/(hug    http ).*\/([^\/]*\.pdf)/;
    $zone=$1;
    $pdf=$2;
    if ($pdf=~/ /){
      $pdf=~s/ /%20/g;
      $url=$zone.$che.$pdf;
      print OUT $url."\n";
      }
    else{
      $url=$zone.$che.$pdf;
      print OUT $url."\n";
      }
   }
 
else{print OUT $line."\n";}
 
}
 
}
#close IN;
close OUT;

Merci pour tes info Djibril mais étant trop novice encore, ça ne me dit pas comment ouvrir mon fichier avec la saisie et pourvoir utilisé mon sub...

Après avoir lu ton dernier post je l'ai remis tel quelle...ça me renvoie à l'écran ma saisie...chouette, mais...je veux qu'il ce serve de ma saisie pour ouvrir mon fichier correspondant et le traiter avec mon sub

**djibril** · 07/05/2010, 09h41

Bon, on va faire plus propre et plus simple. Donc dis moi si je me trompe.
Tu souhaites interagir avec l'utilisateur via une petite fenêtre Tk afin que :
- L'utilisateur te donne un fichier en entrée et en sortie ?
- Que tu puisses récupérer ce fichier input, faire un traitement dessus et créer un fichier (output) correspondant à celui qu'il t'aura donner ?

Est ce bien cela, ou bien y a t il d'autres interactions ?

**PadawanInPerl** · 07/05/2010, 09h57

C'est parfaitement ça !

**djibril** · 07/05/2010, 10h31

Voici un programme que je t'ai fait rapidement.

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
#!/usr/bin/perl
use warnings;
use strict;
use Tk;
 
my ( $fichier_input, $fichier_output );
my $fenetre_principale = MainWindow->new( -title => 'Test de graph' );
 
my $LabelInput = $fenetre_principale->Label( -text => 'Quel fichier traiter ?  : ' );
my $BoutonInput = $fenetre_principale->Button(
  -text    => 'input file',
  -command => sub { $fichier_input = $fenetre_principale->getOpenFile(); }
);
my $AfficheInput = $fenetre_principale->Label( -textvariable => \$fichier_input );
 
my $LabelOutput = $fenetre_principale->Label( -text => 'Quel nom en sortie ?  : ' );
my $BoutonOutput = $fenetre_principale->Button(
  -text    => 'output file',
  -command => sub {
    $fichier_output = $fenetre_principale->getSaveFile( -initialfile => "FichierResutat.txt" );
  },
);
my $AfficheOutput = $fenetre_principale->Label( -textvariable => \$fichier_output );
 
my $BoutonGO = $fenetre_principale->Button(
  -text    => "GO !",
  -command => \&feu,
);
 
# Utilisation de grid pour la disposition des éléments
$LabelInput->grid( $BoutonInput, $AfficheInput, qw/ -sticky nsew / );
$LabelOutput->grid( $BoutonOutput, $AfficheOutput, qw/ -sticky nsew / );
$BoutonGO->grid( '-', qw/ -sticky nsew -pady 25/ );
 
MainLoop;
 
sub feu {
 
  unless ( defined $fichier_input ) {
    print "Pas de fichier input\n";
    return;
  }
  unless ( defined $fichier_output ) {
    print "Pas de fichier output\n";
    return;
  }
 
  print "input : $fichier_input\noutput : $fichier_output\n";return;
  open( IN,  '<:encoding(utf8)', $fichier_input )  or die("Impossible de lire le fichier $fichier_input\n");
  open( OUT, '>:encoding(utf8)', $fichier_output ) or die("Impossible de d'ecrire dans le fichier $fichier_output\n");
 
  while ( my $line = <IN> ) {
    chomp $line;
 
    # Ton traitement, et ecrit proprement
  }
  close IN;
  close OUT;
  return;
}

**PadawanInPerl** · 07/05/2010, 10h43

C'est super cool, je le test tout de suite...

Merci

**PadawanInPerl** · 07/05/2010, 11h01

Il semble ne pas me créer le FichierResultat.txt...

je suis en train de retester mon code d'origine mais cela semble aller

**djibril** · 07/05/2010, 11h12

Faut enlever la ligne

Code :

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

print "input : $fichier_input\noutput : $fichier_output\n";return;

**PadawanInPerl** · 07/05/2010, 11h27

Merci pour tout Djibril,

J'étais très loin de tout ça

c'est la grande classe

Encore merci !!

**djibril** · 07/05/2010, 11h51

N'oubliez pas le tag résolu. Merci

Ouverture de fichier a travers perl/TK

Interfaces Graphiques Perl

Discussions similaires

Partager

Partager