13 lines
191 B
Perl
13 lines
191 B
Perl
|
#!/usr/bin/perl -w
|
||
|
|
|
||
|
|
# Utilisation : wc.pl fichier
|
||
|
|
|
||
|
|
open(F, "<$ARGV[0]") || die "Problème d'ouverture de fichier ! ";
|
||
|
|
|
||
|
|
$i = 0 ;
|
||
|
|
$i++ while(<F>);
|
||
|
|
|
||
|
|
close(F);
|
||
|
|
|
||
|
|
print "Nombre de lignes : $i \n";
|