实例解析Perl语言中BEGIN和END用法

vlei

Perl语言提供了两个关键字：BEGIN，END。它们可以分别包含一组脚本，用于程序体运行前或者运行后的执行，本文通过实例向大家做一下介绍。

AD：

本文和大家重点学习一下Perl语言中BEGIN和END用法，Perl语言提供了两个关键字：BEGIN，END。它们可以分别包含一组脚本，用于程序体运行前或者运行后的执行。

Perl语言中BEGIN和END用法解析

Perl语言提供了两个关键字：BEGIN，END。它们可以分别包含一组脚本，用于程序体运行前或者运行后的执行，听起来很坳口是不是？下面看三个例子就明白了！

第一个例子：最简单，最直接的！#!/usr/bin/Perl

• BEGIN{
  
• 
  
• print"inBEGINmodule!\n";
  
• 
  
• }
  
• 
  
• die"exitPerlprogram!\n";
  
• 
  
• END{
  
• 
  
• print"inENDmodule!\n";
  
• 
  
• }
  
• 
  

复制代码执行结果：

inBEGINmodule!

exitPerlprogram!

inENDmodule!

复制代码是不是很好理解？！

第二个例子：主程序体放在BEGIN／END前面；#!/usr/bin/Perl

• die"exitPerlprogram!\n";
  
• 
  
• BEGIN{
  
• 
  
• print"inBEGINmodule!\n";
  
• 
  
• }
  
• 
  
• END{
  
• 
  
• print"inENDmodule!\n";
  
• 
  
• }
  
• 
  

复制代码结果：

inBEGINmodule!

exitPerlprogram!

inENDmodule!

复制代码最后一种，想必大家都能想到的：#!/usr/bin/Perl

• BEGIN{
  
• 
  
• print"inBEGINmodule!\n";
  
• 
  
• }
  
• 
  
• END{
  
• 
  
• print"inENDmodule!\n";
  
• 
  
• }
  
• 
  
• die"exitPerlprogram!\n";
  
• 
  

复制代码结果还是一样，这里我就不贴了。

总之，Perl语言中BEGIN／END模块和所在位置无关！

转载自：http://developer.iyunv.com/art/201007/213669.htm