关于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=$0n"; ? ? 3.print"Startmainrunningheren"; ? ? 4.BEGIN{print"BEGINn";} ? ? 5.END{print"ENDn";} ? ? 上边的代码很简单，我们来具体的分析一下： ? 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必须是大写的，同时和他们所放置的位置是无关的