#!/usr/bin/perl
# Ex4_1.plx
use warnings;
use strict;

my  ($value, $from, $to, $rate, %rates);
%rates  =  (
   funty                  => 1,
   dolary                 => 1.6,
   marki                  => 3.0,
   "franki francuskie"    => 10.0,
   jeny                   => 174.8,
   "franki szwajcarskie"  => 2.43,
   drachmy                => 492.3,
   euro                   => 1.5
);

print "Podaj walut pocztkow: ";
$from  =  <STDIN>;
print "Podaj walut docelow: ";
$to  =  <STDIN>;
print "Podaj kwot: ";
$value  =  <STDIN>;

chomp($from, $to, $value);

#Wykonaj poniszy podprogram w przypadku, gdy waluta nie istnieje:
while  (not exists $rates{$to})  {

       print "Nie mam adnych danych o walucie  $to\n";
       print "Podaj ponownie walut docelow: ";
       $to  =  <STDIN>;
       chomp($to);
}

while  (not exists $rates{$from})  {

       print "Nie mam adnych danych o walucie  $from\n";
       print "Podaj ponownie walut pocztkow: ";
       $from  =  <STDIN>;
       chomp($from);
}

$rate  =  $rates{$to} / $rates{$from};

print  "$value  $from wynosi ",$value*$rate,"  $to.\n";