Perl 语言编程 - Linux教程

下 面 是 一 些 正 确 的 语 法 的 例 子 ( 即 使 这 些 属 性 是 未 知 的 ):sub fnord (&\%) : switch(10, foo(7,3)) : expensive;sub plugh () : Ugly('\(") :Bad;sub xyzzy : _5x5 { ... }下 面 是 一 些 不 正 确 语 法 的 例 子 :sub fnord : Switch(10, foo());# ()- 字 串 不 平 衡sub snoid : Ugly ('(');# ()- 字 串 不 平 衡sub xyzzy : 5x5;sub plugh : Y2::north;sub snurt : foo + bar;# "5x5" 不 是 合 法 的 标 识 符# "Y2::north" 不 是 简 单 标 识 符# "+" 不 是 一 个 冒 号 或 空 格属 性 列 表 作 为 一 个 常 量 字 符 串 列 表 传 递 进 子 过 程 相 关 的 代 码 . 它 的 正 确 工 作 方 法 是 高 度 试 验性 的 . 查 阅 attributes(3) 获 得 属 性 列 表 的 详 细 信 息 和 操 作 方 法 .5.3 左 值 属 性除 非 你 定 义 子 过 程 返 回 一 个 左 值 , 否 则 你 你 不 能 从 子 过 程 中 返 回 一 个 可 以 修 改 的 标 量 值 :my $val;sub canmod : 左 值 {$val;}sub nomod {$val;}canmod() = 5; # 给 $val 赋 值 为 5nomod() = 5;# 错 误197