Discussion :

[PadawanInPerl]

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]

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]

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]

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

[PadawanInPerl]

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]

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.

[djibril]

N'oubliez pas le tag résolu. Merci