some-usable-scripts/perl/wc.pl

13 lines
191 B
Perl
Raw Normal View History

2012-01-05 11:47:54 +01:00
#!/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";