Perl 语言编程 - Linux教程

print "\t" x ($tab/8), ' ' x ($tab%8);# 跳 过在 列 表 环 境 里 , 如 果 左 操 作 数 是 在 圆 括 弧 中 的 列 表 ,x 的 作 用 是 一 个 列 表 复 制 器 , 而 不 是字 串 复 制 器 。 这 个 功 能 对 初 始 化 一 个 长 度 不 定 的 数 组 的 所 有 值 为 同 一 值 时 很 有 用 :@ones = (1) x80;# 一 个 80 个 1 的 列 表@ones = (5) x @ones; # 把 所 有 元 素 设 置 为 5类 似 , 你 还 可 以 用 x 初 始 化 数 组 和 散 列 片 段 :@keys = qw(perls before swine);@hash{@keys} = (" ") x @keys;如 果 这 些 让 你 迷 惑 , 注 意 @keys 被 同 时 当 做 一 个 列 表 在 赋 值 左 边 使 用 和 当 做 一 个 标 量 值( 返 回 数 组 长 度 ) 在 赋 值 语 句 右 边 。 前 面 的 例 子 在 %hash 上 有 相 同 的 作 用 :$hash{perls} = "";$hash{before} = "";$hash{swine} = "";3.8 附 加 操 作 符很 奇 怪 的 是 ,Perl 还 有 惯 用 的 +( 加 法 ) 和 -( 减 法 ) 操 作 符 。 两 种 操 作 符 都 在 必 要 的 时候 把 它 们 的 参 数 从 字 串 转 换 为 数 字 值 并 且 返 回 一 个 数 字 值 。另 外 ,Perl 提 供 . 操 作 符 , 它 做 字 串 连 接 处 理 。 比 如 :$almost = "Fred" . "Flitstone"; # 返 回 FredFlitstone ?请 注 意 Perl 并 不 在 连 接 的 字 串 中 间 放 置 空 白 。 如 果 你 需 要 空 白 , 或 者 你 要 连 接 的 字 串 多 于两 个 , 你 可 以 使 用 join 操 作 符 , 在 第 二 十 九 章 , 函 数 , 中 介 绍 。 更 常 用 的 是 人 们 在 一 个 双引 号 引 起 的 字 串 里 做 隐 含 的 字 串 连 接 :$fullname = "$firstname $lastname";3.9 移 位 操 作 符按 位 移 位 操 作 符 (>) 返 回 左 参 数 向 左 () 移 动 由 右 参 数 声 明位 ( 是 bit) 数 的 值 。 参 数 应 该 是 整 数 。 比 如 :95