Ouverture de fichier a travers perl/TK
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: