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