关于perl中BEGIN和END的使用

Perl语言学习者必须关注…很强实用性。

有些时候我们需要在perl业务代码开始执行之前做一些初始化工作，或者在结束的时候做一些收尾的工作，perl提供了这样的块BEGIN和END帮助perl程序员实现这些操作。

下面我先看一个简单的例子做为BEGIN和END功能的解释：

0.#! use/bin/perl

1.print"pid = $$/n";

2.print"pname = $0/n";

3.print"Start main running here/n";

4.BEGIN {print"BEGIN/n"; }

5.END {print"END/n"; }

上边的代码很简单，我们来具体的分析一下：

0. 不用多说，是命令行；

1. 打印出当前进程的进程号；

2. 打印出当前perl程序的完整名称（包含路径）；

3. 打印“Start main running here”，并换行；

4. BEGIN{}块，打印“BEGIN”，并换行，标记BEGIN块的执行顺序；

5. END{}块，打印“END”，并换行，标记END执行的顺序。

代码运行的结果：

BEGIN

pid = 2664

pname = F:/perlTemp/PerlTemp1/Demo1.pl

Start main running here

END

根据结果，我们得出，BEGIN是在perl运行最开始运行的块，END是在perl运行最后运行的块，并注意BEGIN和END必须是大写的。