Perl 语言编程 - Linux教程

filename may represend a different file entrely than our handle does" 只 能 让 用户 糊 涂 ( 更 不 用 说 读 者 了 )。 当 你 关 闭 一 个 文 件 , 锁 自 动 消 除 , 不 管 你 是 通 过 调 用 close 明确 关 闭 该 文 件 还 是 通 过 重 新 打 开 该 句 柄 隐 含 的 关 闭 还 是 退 出 你 的 进 程 。如 果 需 要 获 取 排 它 锁 ( 通 常 用 于 写 ), 你 就 得 更 小 心 。 你 不 能 用 普 通 的 open 来 实 现 这 些 ;如 果 你 用 < 的 打 开 模 式 , 如 果 文 件 不 存 在 那 么 它 会 失 败 , 如 果 你 用 >, 那 么 它 会 先 删 除它 处 理 的 任 何 文 件 。 你 应 该 使 用 sysopen 打 开 文 件 , 这 样 该 文 件 就 可 以 在 被 覆 盖 之 前 先被 锁 住 。 一 旦 你 安 全 地 打 开 了 用 于 写 入 的 文 件 ( 但 还 没 有 写 ), 那 么 先 成 功 获 取 排 它 锁 , 只有 这 时 候 文 件 才 被 截 去 。 现 在 你 可 以 用 新 数 据 覆 盖 它 。use Fcntl qw(:DEFALUT :flock);sysopen(FH, "filename", O_WRONLY | O_CREAT)or die "can't open filename:$!";flock(FH, LOCK_EX)or die "can't lock filename:$!";truncate(FH,0)or die "can't truncate filename:$!";# 现 在 写 FH如 果 想 现 场 修 改 文 件 的 内 容 , 那 么 再 次 使 用 sysopen。 这 次 你 请 求 读 写 权 限 , 如 果 必 要 就创 建 文 件 。 一 旦 打 开 了 文 件 , 但 是 还 没 有 开 始 读 写 的 时 候 , 先 获 取 排 它 锁 , 然 后 在 你 的 整 个事 务 过 程 中 都 使 用 它 。 释 放 锁 的 最 好 方 法 是 关 闭 文 件 , 因 为 那 样 保 证 了 在 释 放 锁 之 前 所 有 缓冲 区 都 写 入 文 件 。一 次 更 新 包 括 读 进 旧 值 和 写 出 新 值 。 你 必 须 在 单 个 排 它 锁 里 面 做 两 个 操 作 , 减 少 其 他 进 程 在你 处 理 之 后 ( 甚 至 之 前 ) 读 取 ( 马 上 就 不 正 确 了 的 ) 数 值 。( 我 们 将 在 本 章 稍 后 的 共 享 内 存的 部 分 再 次 介 绍 这 个 情 况 。)use Fcntl qw(:DEFAULT :flock);sysopen(FH, "counterfile", O_RDWR | O_CREAT)or die "can't open counterfile: $!";flock(FH, LOCK_EX);419