Discussion :

[Diabolikjo]

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

[Jasmine80]

Tu devrais utiliser les balises CODE afin de rentre ton texte plus lisible.

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
#!/perl -w
 
use strict;
 
my $way = "P:/Perl/scripts2/Test";
my $line;
 
opendir R_LOG, $way or die "Problème lors de l'ouverture du dossier";
my @files  = readdir(R_LOG);
@files = grep{$_!~ /^\.\.?$/}@files;
 
 
 
foreach my $file (@files){
 
    if (-e $way.$file){
        print "Good File\n";
        open FILE, $way.$file or die "Problème lors de l'ouverture du fichier $file";
        while ($line = <FILE>){
            print "HERE\n";
        }
    }
 
    else{
        print "Not a File\n";
    }
 
    close FILE;
}
closedir R_LOG;

Le problème vient probablement des fichiers . et ..

nb: inutile d'encadrer tes variables de double quotes quand tu en fais des concaténations.

[Diabolikjo]

Merci pour les remarques mais sa ne marche toujours pas

D'autre part => "$_!~ /^\.\.?$/" pourrait tu m'explique la syntaxe ^^

Je pense avoir trouver d'ou viens mon probleme mais je suis incapable de dire pourquoi. En fait je lis des fichier de log Unix. Il doit y avoir un probleme comme j'ai un windows justement ... mais comment le resoudre?! ^^