Bonjour a tous, je debute en Perl et j'ai quelques problemes!

Tout d'abord, auriez-vous une doc solide sur le module Tkx? Parce que c'est un peu le parcours du combattant la, je cherche je cherche et j'essaye de transposez les exemples de Tk en Tkx mais sa marche pas toujours

Sinon la n'est pas vraiment la question! Oui en effet, je n'arrive pas a lire un fichier! He oui, je suis bloque par quelque chose d'aussi simple T_T

Il me detecte que c'est bien un fichier, mais lorsque je tente de lire le 'flux' bah, c'est comme s'il detecte que le fichier etait vide

voici mon 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
24
25
26
#!/perl -w
 
use strict;
 
my $way = "C:/Documents and Settings/iit/Bureau/log/";
my $file;
my $line;
 
opendir R_LOG, "$way";
while ($file = readdir(R_LOG))
{	open FILE, "< $way"."$file";
	if (-f "$way"."$file")
	{
		print "Good File\n";
		while ($line = <FILE>)
		{
			print "HERE\n";
		}
	}
	else
	{
		print "Not a File\n";
	}
	close FILE;
}
closedir R_LOG;
-------------------------------------------------------------

Si quelqu'un pourrait m'aider ce serait tip top
Je precise que je suis sous Windows XP et que j'utilise Active Perl