Perl 语言编程 - Linux教程

大 文 件 一 样 。( 不 过 你 可 以 重 置 行 号 , 参 阅 第 二 十 九 章 看 看 当 到 了 eof 时 怎 样 为 每 个 文 件重 置 行 号 。)如 果 你 想 把 @ARGV 设 置 为 你 自 己 的 文 件 列 表 , 直 接 用 :# 如 果 没 有 给 出 args 则 缺 省 为 README @ARGV = ("README") unless @ARGV;如 果 你 想 给 你 的 脚 本 传 递 开 关 , 你 可 以 用 Getopt::* 模 块 或 者 在 开 头 放 一 个 下 面 这 样 的 循环 :while( @ARGV and $ARGV[0] =~ /^-/) {$_ = shift;last if /^--$/;if (/^-D(.*)/) {$debug = $1 }if (/^-v/){ $verbose++}... # 其 他 开 关}while(){... # 处 理 每 行 的 代 码}符 号 将 只 会 返 回 一 次 假 。 如 果 从 这 ( 返 回 假 ) 以 后 你 再 次 调 用 它 , 它 就 假 设 你 正 在 处理 另 外 一 个 @ARGV 列 表 , 如 果 你 没 有 设 置 @ARGV, 它 会 从 STDIN 里 输 入 。如 果 尖 括 弧 里 面 的 字 串 是 一 个 标 量 变 量 ( 比 如 ,), 那 么 该 变 量 包 含 一 个 间 接 文 件句 柄 , 不 是 你 准 备 从 中 获 取 输 入 的 文 件 句 柄 的 名 字 就 是 一 个 这 样 的 文 件 句 柄 的 引 用 。 比 如 :$fh = \*STDIN; $line = ;或 :open($fh, "