Discussion :

[gdev7]

Bonjour,

Tout est dit dans l'intitulé.

Actuellement, j'ai ça mais je pense qu'il doit me manquer un truc car il n'arrive jamais à m'ouvrir le fichier.
PS : $file2Conc est un fichier récupérer auparavant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
my $numberLines=0;
my $buffer=0;
open(FILE, $file2Conc) or die "Can't open `$file2Conc': $!";
     while (sysread FILE, $buffer, 4096) {
           $numberLines += ($buffer =~ tr/\n//);
     }
close FILE;

Et j'avoue ne pas voir ce qui cloche (débute en PERL), est-ce que le buffer est bien initialisé ? est ce que c'est mon fichier ? est-ce un bon code (trouvé sur le net) ?

Si quelqu'un pourrait me guider, merci

Gud

[djibril]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
my $numberLines=0;
my $file2Conc = "XXXXXXXXXXXXXXXX";
open(FILE, $file2Conc) or die "Can't open `$file2Conc': $!";
while (my $ligne = <FILE>) {
           $numberLines ++;
}
close (FILE);
print "Il y a $numberLines ligne(s) dans le fichier $file2Conc\n";

[Jasmine80]

On peut également faire ainsi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
my $numberLines=0;
my $file2Conc = "XXXXXXXXXXXXXXXX";
open(FILE, $file2Conc) or die "Can't open `$file2Conc': $!";
my @lines = <FILE>;
close (FILE);
print "Il y a ".@lines." ligne(s) dans le fichier $file2Conc\n";

[djibril]

On peut également faire ainsi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
my $numberLines=0;
my $file2Conc = "XXXXXXXXXXXXXXXX";
open(FILE, $file2Conc) or die "Can't open `$file2Conc': $!";
my @lines = <FILE>;
close (FILE);
print "Il y a ".@lines." ligne(s) dans le fichier $file2Conc\n";

c'est dangereux cette façon de faire car si le fichier est gros tu peux saturer la mémoire

[Jasmine80]

c'est dangereux cette façon de faire car si le fichier est gros tu peux saturer la mémoire

A oui, cela est logique. Je ne ferai ainsi que lorsque j'utiliserai des petits fichiers. Merci pour l'information.