Perl 语言编程 - Linux教程

s/sugar/aspartame/# 把 一 个 替 换 物 替 换 到 $_ 里tr/ATCG/TAGC# 修 改 在 $_ 里 表 示 的 DNA因 为 s/// 和 tr/// 修 改 它 们 所 处 理 的 标 量 , 因 此 你 只 能 把 它 们 用 于 有 效 的 左 值 :"onshore" =~ s/on/off/;# 错 ; 编 译 时 错 误不 过 ,m// 可 以 应 用 于 任 何 标 量 表 达 式 的 结 果 :if (( lc $magic_hat->fetch_contents->as_string) =! /rabbit/) {print "Nyaa, what's up doc?\n";}else {print "That trick never works!\n";}但 是 , 在 这 里 你 得 更 小 心 一 些 , 因 为 =~ 和 !~ 的 优 先 级 相 当 高 —— 在 前 一 个 例 子 里 , 左边 的 项 的 圆 括 弧 是 必 须 的 ( 注 : 如 果 没 有 圆 括 弧 , 低 优 先 级 的 lc 将 会 应 用 于 整 个 模 式 匹 配而 不 只 是 对 magic hat 对 象 的 方 法 调 用 。)。!~ 绑 定 操 作 符 作 用 和 =~ 类 似 , 只 是 把逻 辑 结 果 取 反 :if ($song !~ /words/) {print qq/"$song" appears to be a song without words. \n/;}因 为 m//,s///, 和 tr/// 都 是 引 号 包 围 操 作 符 , 所 以 你 可 以 选 择 自 己 的 分 隔 符 。 这 时 其运 行 方 式 和 引 起 操 作 符 q//,qq//,qr//, 和 qw// 一 样 ( 参 阅 第 二 章 , 集 腋 成 裘 , 中 的 “ 选择 自 己 的 引 号 ”)。$path =~ s#/tmp#/var/tmp/scratch#;if ($dir =~ m[/bin]) {150