#!/usr/bin/perl/
#########################################
# DESCRIPTION : Recherche dans le fichier amants.txt le segment "eau" et numérote dans un fichier séparé (moteneau_num.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_num.txt");
$i=1;								# création d'un compteur pour numéroter chaque ligne du fichier (lignes vides comprises)
while ($ligne = <FILE>){
	if ($ligne=~/eau/){
		print FILEOUT "($i) $ligne";
		}
	else {
		print FILEOUT "$ligne";}
	$i++;							# incrémentation
}
close FILE;
close FILEOUT;