#!/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 stokée dans la variable $ligne
while ($ligne = <FILEINPUT>)
{ # on vérifie si la ligne comptient le motif
  if ($ligne=~/le/)
    {  #si oui, on l'imprime 
       print $ligne;
    }
}

close(FILEINPUT) ;


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

my $size = $#array+1;