关于perl中BEGIN和END的使用

时间:2021-04-17 03:55:20

关于perlBEGINEND的使用

 

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

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

下面我先看一个简单的例子做为BEGINEND功能的解释:

 

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运行最后运行的块,并注意BEGINEND必须是大写的。