Perl 语言编程 - Linux教程

eturn $max;}$bestday = max($mon, $tue, $wed, $thu, $fri);或 者 你 可 以 一 次 将 @_ 填 入 一 个 散 列 :sub configuration {my %options = @_;print "Maximum verbosity.\n" if $options{VERBOSE} == 9;}configuration(PASSWORD => 'xyzzy', VERBOSE => 9, SOCRE => 0);下 面 是 一 个 例 子 , 这 里 不 命 名 正 式 参 数 , 这 样 你 可 以 修 改 实 际 参 数 的 值 :upcase_in($v1, $v2); # 这 里 改 变 $v1 和 $v2sub upcase_in {for (@_) { tr/a-z/A-Z/ }}但 是 你 不 允 许 用 这 种 方 法 修 改 常 量 , 如 果 一 个 参 数 是 一 个 象 "hobbit" 这 样 的 实 际 标 量 值或 象 $1 这 样 只 读 标 量 , 当 你 试 图 修 改 它 时 ,Perl 会 抛 出 一 个 例 外 ( 可 能 的 致 命 错 误 或 者可 能 的 威 胁 ). 例 如 , 下 面 的 例 子 将 不 能 工 作 :upcase_in("fredrick");如 果 将 upcase_in 函 数 写 成 返 回 它 的 参 数 的 一 个 拷 贝 会 比 直 接 改 变 参 数 安 全 得 多 :($v3, $v4) = upcase($v1, $v2);sub upcase {my @parms = @_;for (@parms) { tr/a-z/A-Z/ }183