perl BEGIN 和END块

[root@node01 perl]# cat a2.pl END {print cccccccccccc."\n"};  print "aaaaaaaaaaaaa\n";  BEGIN {print bbbbbbbbbbbbbb."\n"}; [root@node01 perl]# perl a2.pl bbbbbbbbbbbbbbaaaaaaaaaaaaaccccccccccccBEGIN 代码块最先执行,END代码块最后执行[root@node01 perl]# cat a2.pl require xx;print "aaaaaaaaaaaaa\n";  BEGIN {print bbbbbbbbbbbbbb."\n"}; [root@node01 perl]# perl a2.pl bbbbbbbbbbbbbbCan't locate xx.pm in @INC (you may need to install the xx module) (@INC contains: /usr/local/perl/lib/site_perl/5.22.1/x86_64-linux /usr/local/perl/lib/site_perl/5.22.1 /usr/local/perl/lib/5.22.1/x86_64-linux /usr/local/perl/lib/5.22.1 .) at a2.pl line 1.