wc en version plus intelligente

PERL_Language/wc.pl

@@ -1,17 +0,0 @@
-#!/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";

perl/wc.pl

@@ -0,0 +1,12 @@
+#!/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";