Perl 语言编程 - Linux教程

EXTENSION 用 于 修 改 旧 文 件 名 然 后 做 一 个 备 份 的 拷 贝 。 如 果 没 有 提 供 EXTENSION,那 么 不 做 备 份 并 且 当 前 文 件 被 覆 盖 。 如 果 EXTENSION 不 包 含 一 个 *, 那 么 该 字 串被 附 加 到 当 前 文 件 名 的 后 面 。 如 果 EXTENSION 包 含 一 个 或 多 个 * 字 符 , 那 么 每 个* 都 被 当 前 正 在 处 理 的 文 件 名 替 换 。 用 Perl 的 话 来 说 , 你 可 以 认 为 事 情 是 这 样 的 :($backup = $extension) =~ s/\*/$file_name/g;这 样 就 允 许 你 把 一 个 前 缀 用 于 备 份 文 件 , 而 不 是 -- 或 者 可 以 说 是 除 了 后 缀 以 外 :%perl -pi'orig_*' -e 's/foo/bar/' xyx# 备 份 到 'orig_xyx'你 甚 至 可 以 可 以 把 原 来 文 件 的 备 份 放 到 另 外 一 个 目 录 里 ( 只 要 该 目 录 已 经 存 在 ):%perl -pi'old/*.orig' -e 's/foo/bar/' xyx # 备 份 到 'old/xyx.orig'这 些 一 行 程 序 对 都 是 相 等 的 :%perl -pi -e 's/foo/bar/' xyx%perl -pi'*' -e 's/foo/bar/' xyx# 覆 盖 当 前 文 件# 覆 盖 当 前 文 件%perl -pi'.orig' -e 's/foo/bar/' xyx%perl -pi'*.orig' -e 's/foo/bar/' xyx# 备 份 到 'xyx.orig'# 备 份 到 'xyx.orig'504