#!/usr/bin/perl/
#########################################
# DESCRIPTION : Recherche dans le fichier amants.txt le segment "eau" et écrit dans un fichier séparé (moteneau.txt) les vers contenant ce segment
# [Etape 1, exercice 4-1]
#########################################

open (FILE, "amants.txt") or die "Impossible d'ouvrir amants.txt !";
open (FILEOUT, ">moteneau.txt");

while ($ligne = <FILE>){
	if ($ligne=~/eau/){				# si $ligne contient le patron "eau"
		print FILEOUT "$ligne";		# écrire $ligne dans le ficher de sortie
		}
}
close FILE;
close FILEOUT;