#!/usr/bin/perl -w

##########################################
#
# Convertisseur Francs/Euro et Euro/Fancs
#
## ########################################



$taux = 6.55957;

printf "\n\n";
printf "Entrez soit: une valeur en Francs suivi de F ou en Euro suivi de E puis ENTER:\n";
printf "(Tapez q puis ENTER pour quitter.)\n";
printf "=> ";
$input = <STDIN>;
chop( $input );

$fin = "non";

while ( $fin eq "non" )
{
	while ( $input =~ m/^([+-]?[0-9]*(\.[0-9]*)?) *([EeFf])$/ )
	{
		$valeur = $1;
		$unite  = $3;
		if ( ( $unite eq "F" ) or ( $unite eq "f" ) )
		{
			$resultat = $valeur / $taux;
			printf "%.2f F = %.2f E\n" , $valeur , $resultat;
		}
		else
		{
			$resultat = $valeur * $taux;
			printf "%.2f E = %.2f F\n" , $valeur , $resultat;
		}
		printf "=> ";
		$input = <STDIN>;
		chop( $input );
	}
	if ( ( $input eq "Q" ) or ( $input eq "q" ) )
	{
		$fin = "oui";
	}
	else
	{
		printf( "Erreur de saisie !\n" );
		printf( "=> " );
		$input = <STDIN>;
		chop( $input );
	}
}
printf( "\n\n" );