File "filtre.pl.bak"

Full Path: /home/analogde/www/Massage_prod_avant/filtre.pl.bak
File size: 579 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; 

my $size = $#array+1;