#!/usr/bin/perl -w
#ouverture locale
use locale;

#ouverture d'un fichier en position 0 dans cygwin béta 20, référencé ensuite par FILE
open (FILE,"$ARGV[0]");
#ouverture d'un fichier en écriture,  si ce fichier existait auparavant : l'ancien contenu est écrasé.
#ce fichier s'appelle "resultat.txt"
open (OUT,">resultat.txt");

#while est une boucle qui signifie "tant que".
#A l'intérieur des parenthèse, on a la condition qui est de lire toutes les lignes du fichier. Ces lignes sont stockés dans la variable $a
#Tant que je peux lire des lignes, je le fais... la condition étant rempli, on peut donc rentrer dans la boucle. 
while ($a=<FILE>){
#Si dans la variable "a", il y a le motif eau alors je fais:
	if ($a=~/eau/) {
#une impression de cette variable dans le fichier sortie OUT	
#Le programme va donc prendre toutes les lignes qui a le motif eau
		print OUT $a;	
	}
}
#On ferme le fichier de lecture
close (FILE);
#On ferme le fichier de sortie
close(OUT);