#/usr/bin/perl -w
#Ouverture d'un fichier résultat en écriture
open(SORTIE, ">resultat.txt"); 
#Demander à l'utilisateur de taper un verbe du 1er groupe
print "Tapez un verbe du 1er groupe ";
#Mettre le verbe dans une variable $verbe
my $verbe = <STDIN>;
#Supprimer l'éventuel retour-chariot
chomp $verbe;
#Créer un tableau associatif avec les pronoms et les terminaisons
%conjugaison=("je", "e", "tu", "es", "il", "e", "nous", "ons", "vous", "ez", "ils", "ent");
        #Si le contenu de la variable $verbe est vide
	if ($verbe eq "") {
		#On utilise "chanter"
		$verbe="chanter";
	}
#Si le verbe est bien du 1er groupe
	if ($verbe=~/(.+)er/){
		#prendre le radical du verbe
		$radical=$1;
		foreach $pronom (sort keys %conjugaison) {
		print SORTIE $pronom." ".$radical.$conjugaison{$pronom}."\n";
		}
	print "la conjugaison est disponible dans le fichier resultat.txt \n";
	}
	else {
		print "Le verbe n'est pas du premier groupe \n";
	}
