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

perl practice

原文：https://www.cnblogs.com/movit/p/14929341.html