perl practice
人民币/美金根据汇率进行转换
print<<EOF;
This is a currency convert program;
please input the exchange rate and select the local currency;
EOF
print "please input the exchange rate between dollar and RMB","\n";
chomp(my $exchange_rate = <STDIN>);
print "the exchange rate you set is $exchange_rate","\n";
print "please select RMB or dollar as your local currency","\n";
chomp(my $currency = <STDIN>);
print "you set $currency as you local currency","\n";
if($currency eq "RMB") {
print "please input the amount of your local currency","\n";
chomp(my $amount = <STDIN>);
print "the amount of RMB is $amount","\n";
print "RMB convert to dollar,the amount is ",$amount/$exchange_rate;
} elsif($currency eq "dollar") {
print "please input the amount of your local currency","\n";
chomp(my $amount = <STDIN>);
print "the amount of dollar is $amount","\n";
print "dollar convert to RMB,the amount is ",$amount*$exchange_rate;
} else {
print "the currency you set is wrong","\n";
exit;
}