|
Nombre de lignes
|
 Informations rapides |
|
|
|
Informations détaillées
|
Description :
Fonction permettant de compter le nombre de ligne dans un fichier
Portion de code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
#!/usr/bin/perl
sub nbLignes;
print nbLignes "fichier.txt";
sub nbLignes {
my ($file)=@_;
my ($res)=0;
open(FIC,"$file") or die("can't open $file : $!");
while (<FIC>) { $res++; }
close(FIC);
$res;
}
|
|
| Informations & Services |
 |
|
|
|
 Newsletter
Autre Sources
Tips
|
