Perl 语言编程 - Linux教程

}elsif ($city eq "Chicago") {print "Chicago is northwest of Washington, D.C.\en";}elsif ($city eq "Miami") {print "Miami is south of Washington, D.C. And much warmer!\en";}else {print "I don't know where $city is, sorry.\en";}if 和 elsif 子 句 按 顺 序 执 行 , 直 到 其 中 的 一 个 条 件 被 发 现 是 真 的 或 到 了 else 条 件 为 止 ,当 发 现 其 中 的 一 个 条 件 是 真 的 , 就 执 行 它 的 代 码 段 , 然 后 跳 过 所 有 其 余 的 分 支 。 有 时 候 , 你可 能 希 望 在 条 件 为 假 的 时 候 执 行 代 码 , 而 不 想 在 条 件 为 真 时 执 行 任 何 代 码 。 使 用 一 个 带 else的 空 if 语 句 看 起 来 会 比 较 零 乱 。 而 用 否 定 的 if 会 难 以 理 解 , 这 就 象 在 英 语 中 说 “ 如 果 这 不是 真 的 , 就 做 某 事 ” 一 样 古 怪 。 在 这 种 情 况 下 , 你 可 以 使 用 unless 语 句 :unless ($destination eq $home) { print "I'm not going home.\en"; }但 是 , 没 有 elsunless。 这 通 常 解 释 为 if 的 一 个 特 性 。1.6.3 循 环Perl 有 四 种 循 环 语 句 的 类 型 :while,until,for 和 foreach。 这 些 语 句 可 以 允 许 一 个 Perl程 序 重 复 执 行 同 一 些 代 码 。1.6.3.1 while 和 until 语 句除 了 是 重 复 执 行 代 码 段 以 外 ,While 和 until 语 句 之 间 的 关 系 就 象 if 和 unless 的 关 系一 样 。 首 先 , 检 查 条 件 部 分 , 如 果 条 件 满 足 (while 语 句 是 真 ,until 是 假 ), 执 行 下 面 代码 段 , 例 如 :while ($tickets_sold < 10000) {36