Discussion :

[Lauxeti]

Bonjour,

Débutant en Perl, je souhaiterais avec une routine TK selectionner un fichier et le traiter

Voila le debut de code:

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
open (IN, "xxx100614_050003.csv") or die "Impossible d'ouvrir le fichier d'entree : $! ";
open (OUT, ">xxx.csv") or die "Impossible d'ouvrir le fichier de sortie :$!";
 
my @xxx;
 
while(<IN>) { 
	push(@xxx,$_);
}
 
foreach $ligne (@xxx){
	if ($ligne =~ /^Code/)
...
 
cela fonctionne parfaitement, le pb avec Tk j'ai fait un debut de code
...
use tk;
---
MainLoop;
 
sub open_file {
  my $open = $mw->getOpenFile(-filetypes => $types,
                              -defaultextension => '.pl');
  print qq{You chose to open "$open"\n} if $open;

et la pb , j'ai bien nom du fichier ( C:\aaa\xxx100614_050003.csv correct dans $open mais l'enchainement ne se fait pas

Pouvez m'aider ?
Merci
Le Lauxeti

[djibril]

Tu as la solution dans notre FAQ Perl/Tk