Perl中BEGIN和END如何使用

这篇文章给大家介绍Perl中BEGIN和END如何使用，内容非常详细，感兴趣的小伙伴们可以参考借鉴，希望对大家能有所帮助。

关于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"Startmainrunninghere\n";   4.BEGIN{print"BEGIN\n";}   5.END{print"END\n";}

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

0.不用多说，是命令行；   1.打印出当前进程的进程号；   2.打印出当前Perl程序的完整名称（包含路径）；   3.打印“Startmainrunninghere”，并换行；   4.BEGIN{}块，打印“BEGIN”，并换行，标记BEGIN块的执行顺序；   5.END{}块，打印“END”，并换行，标记END执行的顺序。

代码运行的结果：

BEGIN   pid=2664  pname=F:/PerlTemp/PerlTemp1/Demo1.pl   Startmainrunninghere   END

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

关于Perl中BEGIN和END如何使用就分享到这里了，希望以上内容可以对大家有一定的帮助，可以学到更多知识。如果觉得文章不错，可以把它分享出去让更多的人看到。