Perl 语言编程 - Linux教程

隐 含 的 循 环 之 前 或 之 后 的 控 制 , 就 象 awk 一 样 。-P 令 你 的 脚 本 先 由 C 预 处 理 器 运 行 , 然 后 才 由 Perl 编 译 。( 因 为 注 释 和 cpp(1)指 示 都 是 由 # 字 符 开 头 , 所 以 你 应 该 避 免 注 释 任 何 C 预 处 理 器 可 以 识 别 的 词 ,比 如 "if","else", 或 者 "define"。) 不 过 你 用 不 用 -P 开 关 ,Perl 都 会 注 意#line 指 示 以 控 制 行 号 和 文 件 名 , 这 样 任 何 预 处 理 器 都 可 以 通 知 Perl 这 些 事 情 。参 阅 第 二 十 四 章 , 普 通 实 践 , 里 面 的 “ 在 其 他 语 言 里 生 成 Perl”。-s 打 开 命 令 行 上 脚 本 名 之 后 , 但 在 任 何 文 件 名 或 者 一 个 “--” 开 关 处 理 终 止 符 之 前 的基 本 的 开 关 分 析 。 找 到 的 任 何 开 关 都 从 @ARGV 里 删 除 , 并 且 在 Perl 里 设 置 一 个同 名 的 开 关 变 量 。 这 里 不 允 许 开 关 捆 绑 , 因 为 这 里 允 许 使 用 多 字 符 开 关 。下 面 的 脚 本 只 有 在 你 带 着 -foo 开 关 调 用 脚 本 的 时 候 才 打 印 “true”。#! /sr/bin/perl -sif ($foo) {print "true\n"}如 果 该 开 关 形 如 -xxx=yyy, 那 么 $xxx 变 量 的 值 设 置 为 跟 在 这 个 参 数 的 等 号 后 面的 值 ( 本 例 中 是 ”yyy“)。 下 面 的 脚 本 只 有 在 你 带 着 -foo=bar 开 关 调 用 的 时 候才 打 印 “true”。#! /usr/bin/perl -sif ($foo eq 'bar') { print "true\n" }511