18 lines
261 B
Perl
18 lines
261 B
Perl
|
#!/usr/bin/perl -w
|
||
|
|
|
||
|
|
# This script displays the number of lines in a file
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
|
||
|
|
die "un argument svp ! " if !defined ($ARGV[0]);
|
||
|
|
|
||
|
|
my $i=0;
|
||
|
|
open(P,"< $ARGV[0]") || die "erreur ouverture $!";
|
||
|
|
|
||
|
|
while (<P>)
|
||
|
|
{
|
||
|
|
$i++;
|
||
|
|
}
|
||
|
|
close(P);
|
||
|
|
print "nb de lignes = $i \n";
|