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","
";
chomp(my $exchange_rate = <STDIN>);
print "the exchange rate you set is $exchange_rate","
";
print "please select RMB or dollar as your local currency","
";
chomp(my $currency = <STDIN>);
print "you set $currency as you local currency","
";
if($currency eq "RMB") {
print "please input the amount of your local currency","
";
chomp(my $amount = <STDIN>);
print "the amount of RMB is $amount","
";
print "RMB convert to dollar,the amount is ",$amount/$exchange_rate;
} elsif($currency eq "dollar") {
print "please input the amount of your local currency","
";
chomp(my $amount = <STDIN>);
print "the amount of dollar is $amount","
";
print "dollar convert to RMB,the amount is ",$amount*$exchange_rate;
} else {
print "the currency you set is wrong","
";
exit;
}
ATM
my $info = <<"EOF";
The amount must can divide by 5;
Your account should be great than your amount;
Every time need pay 0.5 dollar for Handling fee;
original link: https://www.codechef.com/problems/HS08TEST
EOF
print $info;
print "Please input the amount you wanna get","
";
chomp(my $amount = <STDIN>);
print "the amount you input is $amount
";
print "Please input the account amount you have","
";
chomp(my $account = <STDIN>);
print "the account amount you have is $account
";
if($amount%5 != 0) {
print "The amount you input cant divide by 5
";
} elsif($amount > $account) {
print "you account is not enough for you amount
";
} else {
print "Please wait a moment,tou will get $amount dollar
";
print "Now your account have ",$account-$amount-0.5," dollar
";
}
