程嶏清单6-4.txt

来自「< linux网络编程工具>>配套源码」· 文本 代码 · 共 14 行

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