scalar() perl_stata scalar_perl substr(26)

   while (<>) {
      tr#A-Za-z0-9+/##cd;            # 删除非 base64 字符
      tr#A-Za-z0-9+/# -_#;            # 转换成 uuencode 格式
      $len = pack("c", 32 + 0.75*length);   # 计算长度字节
      print unpack("u", $len . $_);      # uudecode 并打印
   }

unshift ARRAY, LIST

这个函数做 shift 的逆操作。（或者是 push 的逆操作，取决于你怎么看它。）它在数组前面增加 LIST，并返回在数组里的新的元素个数：

   unshift @ARGV, '-e', $cmd unless ARGV[0] =~ /^-/;

请注意 LIST 是整个放到前面，而不是每次一个元素，因此放到前面的元素保持相同顺序。用 reverse 实现这些元素的翻转。

untie VARIABLE

打破 VARIABLE 里包含的变量或者或者类型团和与它捆绑的包之间的绑定。参阅 tie，以及第十四章的全部，尤其是“一个精细的松绑陷阱”节。

use MODULE VERSION LIST

use MODULE VERSION ()

use MODULE VERSION

use MODULE LIST

use MODULE ()

use MODULE

use VERSION

use 声明装载一个模块（如果它还没有被装载），并且把子过程和变量从这个命名模块输入到当前包。（从技术上来讲，它从那个命名模块向当前包输入一些语意，通常是通过把一些子过程或者变量名作成你的包里的别名的方法。）大多数 use 的声明看起来象：

   use MODULE LIST;

这样和下面是完全一样的：

   BEGIN { require MODULE; import MODULE LIST; }

BEGIN 迫使 require 和 import 在编译时发生。require 确保该模块在还没有装载的时候装入内存。import 不是内建的函数——它只是一个普通的类方法，调用名字叫 MODULE 的包，告诉该模块把列表里的特性拖到当前包里来。模块可以用自己喜欢的任何方法实现它的输入方法，尽管大多数只是通过从 Exporter 类中继承 import 方法。Exporter 类在 Exporter 模块中定义。参阅第十一章，模块，以及 Exporter 模块获取更多信息。如果找不到 import 方法，那么调用将不声不响地忽略。

如果你不希望你的名字空间被修改，那么明确地提供一个空列表：

   use MODULE ();

它和下面的代码完全一样：

   BEGIN { require MODULE; }

如果给 use 的第一个参数是象 5.6.2 这样的版本号，那么当前执行着的 Perl 版本必须至少和声明的版本一样新。如果当前的版本比 VERSION 小，那么就会打印出一条错误信息然后 Perl 马上退出。这样就可以有效地在装载需要更新的版本的库模块之前检查当前 Perl 的版本，因为有时候我们必须“破坏”老版本的错误特性。（我们总是试图尽可能不破坏任何东西。而实际上我们总是试图少破坏东西。）

谈到不破坏其他东西，Perl 仍然接受下面形式的老版本号：

   use 5.005_03;

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/jisuanjixue/article-28372-26.html