Perl 语言编程 - Linux教程

LABEL BLOCKLABEL BLOCK continue BLOCK请 注 意 和 C 及 Java 不 同 的 是 , 这 些 语 句 是 根 据 BLOCK 而 不 是 根 据 语 句 定 义 的 。 这 就意 味 着 花 括 弧 是 必 须 的 —— 不 允 许 有 虚 悬 的 语 句 。 如 果 你 想 不 带 圆 括 弧 写 条 件 , 可 以 有 若干 种 处 理 方 法 。 下 面 的 语 句 作 用 相 同 :unless (open(FOO, $foo)) {die "Can't open $foo: $!" }if(!open(FOO, $foo)) {die "Can't open $foo: $!" }die "Can't open $foo: $!"die "Can't open $foo: $!"unless open(FOO, $foo);if !open(FOO, $foo);open(FOO, $foo) || die "Can't open $foo: $!";open(FOO, $foo) or die "Can't open $foo: $!";在 大 多 数 情 况 下 , 我 们 都 建 议 使 用 最 后 一 对 儿 。 这 种 形 式 看 着 整 齐 一 点 , 尤 其 是 "or die" 版本 。 而 用 || 形 式 时 你 必 须 习 惯 虔 诚 地 使 用 圆 括 弧 , 而 如 果 用 or 版 本 , 即 使 你 忘 了 也 用 不着 担 心 。不 过 我 们 喜 欢 最 后 一 种 形 式 的 原 因 是 它 把 语 句 里 重 要 的 部 分 放 到 行 的 前 面 , 这 样 你 会 先 看 到它 们 。 错 误 控 制 部 分 挪 到 了 边 上 , 这 样 除 非 必 要 的 时 候 , 你 用 不 着 注 意 它 们 。 如 果 你 每 次 都把 所 有 "or die" 检 查 放 到 右 边 同 一 行 , 那 就 很 容 易 读 了 :chdir $dir or die "chdir $dir: $!";open FOO, $file or die "open $file: $!";@lines = or die "$file is empty?";close FOO or die "close $file: $!";4.2.1 if 和 else 语 句115