#!/usr/bin/perl

#On affiche:
print "\n\nDonnez la phrase contenant la somme en francs (au format 55F ou 55f) qu'il faut convertir en euros : \n\n";

#On affecte à  la variable $p le flux de l'entrée standard
$p=<STDIN>;

#On supprime le retour chariot
chomp ($p);

#Si le contenu de la variable $p est vide on exécute le bloc d'instructions
if ($p eq "") {

	#On affecte à la variable $verbe le verbe par défaut "chanter"
	$p="Je suis riche!! J'ai 15215847511.25F!!";
}


#On crée une condition, si la phrase dans la variable $p contient l'expression régulière
# qui correspond à un chiffre (de 1 chiffre à l'infini), suivi d'un point ou non puis d'un chiffre (de 0 chiffre à l'infini)
#puis suivi de la lettre F ou f, on execute le bloc d'instructions
if ($p=~/([0-9]+\.?[0-9]*)((F|f))/) {

	#On affecte à la variable $p le contenu correspondant à celui récupéré dans la première parenthèse de l'expression régulière
	$p=$1;
	
	#On met le contexte gauche dans la variable $cg
	$cg=$`;
	
	#On met le contexte droit dans la variable $cd
	$cd=$';
	
	#On divise le contenu de la variable $p par 6.56 et on affecte le résultat à la variable $conversion
	$conv=$p/6.55957;


	print "\Resultat de la conversion: $conv e.\n\nResultat en contexte:\n\n$cg $conv e$cd.\n";
	
	
	
}
	
	


#Si la condition n'est pas remplie, on execute le bloc d'instructions
else {

	#On affiche:
	print "\nCette phrase ne contient aucune somme exprimee en francs.\n";
}


