perl practice

Posted 2021-06-25 MOVIT

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;
    
}