程嶏清单6-4.txt

< linux网络编程工具>>配套源码

print  " how much is this dictionary?";
$price = <STDIN>;
chomp($price);
unless ($price > 65) {
     print "So I have enough money to buy the dictionary.";
}

elsif ($city eq "Miami") {
    print "Miami is south of Washington, D.C.  And much warmer!\n";
}
else {
    print "I don't know where $city is, sorry.\n";
}