Ouverture de fichier a travers perl/TK

Version imprimable

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:

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:

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 :oops:
Code:

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:

1 2 open IN,'<:encoding(utf8)',"$input"; open OUT,'>:encoding(utf8)',"$output";
Merci d'avance...:ccool:

06/05/2010, 13h00
djibril

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

erreur de mon script

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>
07/05/2010, 08h28
djibril

$input n'est pas un fichier et $output, je ne sais pas ce que c'est .
07/05/2010, 08h50
PadawanInPerl

erreur de mon script

:calim2:

bon,

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

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

$output est mon fichier de sortie construit sur la mm base que $input...
07/05/2010, 09h06
djibril

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.

erreur de mon script

Code:

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...:aie:

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 :lol:

07/05/2010, 09h41
djibril

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 ?
07/05/2010, 09h57
PadawanInPerl

erreur de mon script

C'est parfaitement ça !

Voici un programme que je t'ai fait rapidement.

Code:

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;
}

07/05/2010, 10h43
PadawanInPerl

erreur de mon script

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

Merci ;)
07/05/2010, 11h01
PadawanInPerl

erreur de mon script

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

je suis en train de retester mon code d'origine mais cela semble aller :roll:
07/05/2010, 11h12
djibril

Faut enlever la ligne

Code:

print "input : $fichier_input\noutput : $fichier_output\n";return;
07/05/2010, 11h27
PadawanInPerl

erreur de mon script

Merci pour tout Djibril,

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

c'est la grande classe :ccool:

Encore merci !!
07/05/2010, 11h51
djibril

N'oubliez pas le tag résolu. Merci