File "filtre.pl"

Full Path: /home/analogde/www/XTRAIL/andre/PERL/filtre.pl
File size: 685 bytes
MIME-type: text/x-perl
Charset: 8 bit

#!/usr/bin/perl

# ouverture du fichier pass en argument au script
# et association  un pointeur de fichier
open(FILEINPUT,"$ARGV[0]");
# parcours du fichier associ au pointeur FILEINPUT
# chaque ligne est stoke dans la variable $ligne
while ($ligne = <FILEINPUT>)
{ # on vrifie si la ligne comptient le motif
  if ($ligne=~/le/)
    {  #si oui, on l'imprime 
       print $ligne;
    }
}

close(FILEINPUT) ;


# nombre d'lments dans le tableau
$NbElem = scalar(@array); 
# autre possibilit
my $size = @array;
print $size; 

# $#array retoune l'index du dernier element de @array
# et comme l'index commence  0 il suffit d'ajouter 1 pour avoir la taille
my $size = $#array+1;