程嶏清单6-3.txt

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

 print "Please input the city: \n";
$city = <STDIN>;
chomp($city);
if ($city eq "New York") {
    print "New York is northeast of Washington, D.C.\n";
}
elsif ($city eq "Chicago") {
    print "Chicago is northwest of Washington, D.C.\n";
}
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";
}