Perl 作为一种脚本语言可以实时地生成和执行代码。这种特性可以把代码的编译推迟到运行时，所以又称为“动态代码”。另外， Perl 也如 Java 、 C++ 一样提供了异常处理机制。本文将初步探讨 Perl 中实现动态代码和异常处理机制的函数： eval 。如有错误不足，欢迎讨论和批评指正。

eval 函数可以看作是 Perl 虚拟机，它的参数就是一段 Perl 代码。利用 ’perldoc –f eval’ 可以获取 eval 函数使用帮助，其中介绍了它的两种使用方式：

l         eval EXPR

EXPR 是一个的表达式，例如：

eval "print $a" ;

eval 'print $a' . ', $b' ;

eval 1 + 3 ;

eval 'print ' . '$a + $b, "\n"' ;

eval $command;#$command = ‘print “hello Perl”’

eval $ARGV[0];

在执行时， Perl 解释器会首先解析表达式的值，然后将表达式值作为一条 Perl 语句插入当前执行上下文。所以，新生成的语句与 eval 语句本身具有相同的上下文环境。这种方式中，每次执行 eval 语句，表达式都会被解析。所以，如果 eval EXPR 如果出现在循环中，表达式可能会被解析多次。 eval 的这种方式使得 Perl 脚本程序能实时生成和执行代码，从而实现了“动态代码”。

l         eval BLOCK

BLOCK 是一个代码块，例如：

eval {print $a};

eval {$a = 1, $b = 2, $c = $a + $b};

与第一种方式不同， BLOCK 只会被解析一次，然后整个插入当前 eval 函数所在的执行上下文。由于解析上的性能的优势，以及可以在编译时进行代码语法检查，这种方式通常被作为 Perl 用来为一段代码提供异常捕捉机制，虽然前一种方式也可以。

按帮助的名称，称 eval 的参数程序为“小程序” (mini-proggram) 。在两种方式中， eval 函数的返回值都是小程序的最后一条语句的值，如果遇到 return 语句，与子例程相同。

如果小程序中有语法错误、运行时错误遇到 die 语句， eval 将返回 undef 。错误码被保存在 $@ 中。

使用php的程序员就没有这个烦恼，因为php默认会将错误都打印到页面上。CGI程序里如何才能做到这一点呢？

CGI::Carp这个模块支持这个功能，以下是例子：

				
						use CGI::Carp qw(fatalsToBrowser);
die "Bad error here";
		

详细请参阅CGI::Crap的在线手册

那如果是自己写的简单CGI程序，不使用CGI.pm怎么办？以下是简单的方法......

BEGIN {
     # fatal handler setting.
     $SIG{__DIE__} = $SIG{__WARN__} = \&some_func;
}

#!/usr/bin/perl -wuse strict

BEGIN {
     # fatal handler setting.
     $SIG{__DIE__} = $SIG{__WARN__} = \&handler_fatal;
}
# some perl code goes here
......

sub handler_fatal {
     print "Content-type: text/html\n\n";
     print "@_";
}

Undefined subroutine &main::abc called at /home/hzqbbc/cgi-bin/fatal.cgi line 8.

首先通过 new 来初始化一个 ForkManager 对象，同时必须标明最大进程数。如果使用 0 的话就可以避免 fork 来达到调试程序的作用。

然后使用 $pm->start 来开始 fork。 $pm 在子进程时返回 0 ,父进程时返回子进程的进程号（具体请参阅 Perl 的 fork 文档）。“and next” 用来跳过父进程。注意：如果 fork 失败的话， $pm->start 就提示错误，程序结束。

$pm->finish 结束子程序（假设我们一开始使用了 start 来 fork）

注意：在子进程中不能使用 $pm->start。 如果你想在子进程中使用另外一组子进程，你必须再初始化一个 Parallel::ForkManager 对象。

from: http://www.perlchina.org/archive/archive.php?action=archive&page=44

几个主要的 CPAN 站点有：

• 国内：
  最新更新请查阅 http://cpan.org/SITES.html#Asia

• ftp://mirrors.hknet.com/CPAN 模块镜像
• http://mirrors.dayouit.com/CPAN/ 网页镜像
• http://cpan.linuxforum.net/ 网页镜像

• 国外：

• http://www.cpan.org/

安装方法

我在这里介绍一下各种平台下 perl 模块的安装方法。以安装DBI模块为例。

Linux/Unix下的安装方法：

Linux/Unix 下安装 Perl 模块有两种方法：手工安装和自动安装。第一种方法是从 CPAN 上下载您需要的模块，手工编译、安装。第二种方法是使用 CPAN 模块自动完成下载、编译、安装的全过程。

• 手工安装的步骤：

• 从 CPAN 下载了 DBI 模块 1.13 版的压缩文件 DBI-1.13.tar.gz，假设放在 /usr/local/src/ 下。

• cd /usr/local/src

• 解压缩这个文件,这时会新建一个DBI-1.13的目录。
  
  tar xvzf DBI-1.13.tar.gz

• 换到解压后的目录： cd DBI-1.13

• 生成 makefile：perl Makefile.PL

• 生成模块：make

• 测试模块（这步可有可无）： make test
  如果测试结果报告“all test ok”，您就可以放心地安装编译好的模块了。

• 安装模块前，先要确保您对 perl5 安装目录有可写权限（通常以 su 命令获得），执行：
  
  make install

• 现在，试试 DBI 模块吧。如果下面的命令没有给出任何输出，那就没问题。
  $>perl -MDBI -e1
  
  上述步骤适合于 Linux/Unix 下绝大多数的 Perl 模块。可能还有少数模块的安装方法略有差别，所以最好先看看安装目录里的 README 或 INSTALL。

• 使用 CPAN 模块自动安装：
  安装前需要先联上网，并且您需要取得root权限。

• perl -MCPAN -e shell
  
  初次运行CPAN时需要做一些设置，如果您的机器是直接与因特网相联（拨号上网、专线，etc.），那么一路回车就行了，只需要在最后一步选一个离您最近的 CPAN 镜像站点。例如我选的是位于国内的ftp://mirrors.hknet.com/CPAN 。否则，如果您的机器位于防火墙之后，还需要设置ftp代理或http代理。下面是常用 ppm 命令。

• 获得帮助
  cpan>help

• 列出CPAN上所有模块的列表
  cpan>m

• 安装模块，自动完成DBI模块从下载到安装的全过程。
  cpan>install DBI

• 退出
  cpan>quit

Win32下的安装方法：

在 Win32 下，建议使用 Active State 的 Perl for Win32，即Active Perl。Active Perl 的主页在：
http://www.activestate.com/ 。
在 Win32 下，比较容易的是使用专门为 Active Perl? 定制的 Perl 模块。类似于 CPAN 模块，Active State也开发了一个自动安装工具叫做PPM（Perl Package Manager）。

• 最通常的安装方法是：

• 首先联上网，在 dos 命令行下启动 ppm
  ppm

• 获得帮助
  PPM>h

• 列出已安装的 DBI 模块信息
  cpan>query DBI

• 搜索 cpan 所有匹配 DBI 的模块
  cpan>search DBI

• 安装模块，自动完成 DBI 模块从下载到安装的全过程。
  PPM>install DBI

• 退出
  PPM>q

• 如果您的机器位于防火墙之后，通过 http 代理上网，那么可以使用下面的方法。

• 设定环境变量 HTTP_proxy
  C: \ > set HTTP_proxy=http://proxy:8080
  如果你的代理需要用户名和密码，你还要设定环境变量: HTTP_proxy_user 和 HTTP_proxy_pass

• 安装 activeperl 不包括的模块
  如果 ppm 没有某个 CPAN 的模块，只要这个模块不需要编译（没有使用 C 等）那你可以把这个模块从 CPAN 下载，解压然后放到你的 activeperl 的库路径里， perl -e "print join ' ' @INC" 显示出 perl 的库路径。

• activeperl 里不包括所有的 CPAN 模块，其他地方可能提供这些模块的下载，
• 比如在 activeperl 5.8 的 GD 模块安装请使用如下命令：
  >ppm install http://theoryx5.uwinnipeg.ca/ppms/GD.ppd
• activeperl 5.6 的 GD 模块安装请使用如下命令：
  >ppm install http://theoryx5.uwinnipeg.ca/ppmpackages/GD.ppd
• 其他 activeperl 模块下载地址请参照 Perl学习指南 。

以上较为详细地描述了各种平台下 Perl 模块的安装方法。希望能够帮助国内 Perl 爱好者们通过使用现有大量优秀的 Perl 模块，避免重复劳动，提高效率，更好发挥 Perl 语言的强大威力。

from: http://www.perlchina.org/archive/archive.php?action=archive&page=51

Now you can type in any legal Perl code, and it will be immediately evaluated. You can also examine the symbol table, get stack backtraces, check variable values, and if you want to, set breakpoints and do the other things you can do in a symbolic debugger.

from: http://www.perl.com/doc/FAQs/FAQ/oldfaq-html/Q3.1.html

                SCALAR
                ARRAY
                HASH
                CODE
                REF
                GLOB
                LVALUE

            If the referenced object has been blessed into a package, then
            that package name is returned instead. You can think of "ref" as
            a "typeof" operator.

                if (ref($r) eq "HASH") {
                    print "r is a reference to a hash.\n";
                }
                unless (ref($r)) {
                    print "r is not a reference at all.\n";
                }
                if (UNIVERSAL::isa($r, "HASH")) {  # for subclassing
                    print "r is a reference to something that isa hash.\n";
                }

            See also perlref.