#!/usr/bin/perl 
#Demander à l'utilisateur d'entrer une phrase
print "Tapez une phrase contenant une somme en francs de la forme 10F, 10.55F, 14f ou 15.10f \n";
#Mettre la phrase dans une variable
$phrase=<STDIN>;
#Supprimer l'éventuel retour-chariot
chomp ($phrase);
#Si la phrase contient une somme en francs de la forme 10F, 10.55F, 14f ou 15.10f
if ($phrase=~/([0-9]+\.?[0-9]*)(F|f)/) {
	#Mettre la valeur numérique dans une variable
	$p=$1;
	#Récupération du contexte gauche
	$gauche=$`;
	#Récupération du contexte droit
	$droite=$';
	#Récupération du symbole du franc
	$devise=$2;
	#Remplacement du franc par l'euro
	$devise=~s/F|f/E/;
	#Dans le contenu de la variable $symbole on remplace le f par un e
	#$symbole=~s/f/e/;
	#Conversion en euro de la somme
	$conversion=$p/6.57;
	#Arrondir à deux chiffres après la virgule
	if ($conversion=~/([0-9]+\.[0-9][0-9])/) {
		#mettre dans une nouvelle variable le résultat
		$arrondi=$1;
	}
print "$gauche$arrondi$devise$droite \n";
}
	#Sinon
	else {
	#ecrire une phrase d'erreur
	print "La phrase ne contient pas de somme en francs.\n";
	}
