Perl 语言编程 - Linux教程

不 退 出 。 这 样 做 不 论 对 你 还 是 对 计 算 机 还 是 以 后 维 护 你 的 代 码 的 人 来 说 , 都 是 效 率 低 下 的 做法 。)1.6.3.2 for 语 句另 外 一 个 循 环 语 句 就 是 for 循 环 。for 循 环 和 while 循 环 非 常 相 似 , 但 是 看 起 来 有 很 多 不同 之 处 。(C 语 言 程 序 员 会 觉 得 和 C 中 的 for 循 环 非 常 相 似 。)for ($sold = 0; $sold < 10000; $sold += $purchase) {$available = 10000 - $sold;print "$available tickets are available. How many would you like: ";$purchase = ;chomp($purchase);}for 循 环 在 园 括 弧 中 有 三 个 表 达 式 : 一 个 表 达 式 初 始 化 循 环 变 量 , 一 个 对 循 环 变 量 进 行 条 件判 断 , 还 有 一 个 表 达 式 修 改 条 件 变 量 。 当 一 个 for 循 环 开 始 时 , 设 置 初 始 状 态 并 且 检 查 条件 判 断 , 如 果 条 件 判 断 为 真 , 就 执 行 循 环 体 。 当 循 环 体 中 的 语 句 , 修 改 表 达 式 执 行 。 并 且 再次 检 查 条 件 判 断 , 如 果 为 真 , 循 环 体 返 回 下 一 个 值 , 如 果 条 件 判 断 值 为 真 , 循 环 体 和 修 改 表达 式 将 一 直 执 行 。( 注 意 只 有 中 间 的 条 件 判 断 才 求 值 , 第 一 个 和 第 三 个 表 达 式 只 是 修 改 了 变量 的 值 , 并 将 结 果 直 接 丢 弃 !)1.6.3.3 foreach 语 句Perl 中 最 后 一 种 循 环 语 句 就 是 foreach 语 句 , 它 是 用 来 针 对 一 组 标 量 中 的 每 一 个 标 量 运行 同 一 段 程 序 , 例 如 一 个 数 组 :foreach $user (@users) {if (-f "$home{$user}/.nexrc") {print "$user is cool\&\.\.\. they use a perl-aware vi!\en";}}38