perl 里面 BEGIN 和 END

本文深入探讨Perl语言中的BEGIN和END关键字的使用,通过三个实例展示它们在程序体运行前或运行后执行的功能,帮助理解其作用。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

 

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

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

Perl语言中BEGIN和END用法解析

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

第一个例子:最简单,最直接的!

#!/usr/bin/Perl

  1. BEGIN{  
  2.  
  3. print"inBEGINmodule!\n";  
  4.  
  5. }  
  6.  
  7. die"exitPerlprogram!\n";  
  8.  
  9. END{  
  10.  
  11. print"inENDmodule!\n";  
  12.  
  13. }  
  14.  

复制代码执行结果:

inBEGINmodule!

exitPerlprogram!

inENDmodule!
复制代码是不是很好理解?!

第二个例子:主程序体放在BEGIN/END前面;

#!/usr/bin/Perl

  1. die"exitPerlprogram!\n";  
  2.  
  3. BEGIN{  
  4.  
  5. print"inBEGINmodule!\n";  
  6.  
  7. }  
  8.  
  9. END{  
  10.  
  11. print"inENDmodule!\n";  
  12.  
  13. }  
  14.  

复制代码结果:

inBEGINmodule!

exitPerlprogram!

inENDmodule!
复制代码最后一种,想必大家都能想到的:

#!/usr/bin/Perl

  1. BEGIN{  
  2.  
  3. print"inBEGINmodule!\n";  
  4.  
  5. }  
  6.  
  7. END{  
  8.  
  9. print"inENDmodule!\n";  
  10.  
  11. }  
  12.  
  13. die"exitPerlprogram!\n";  
  14.  

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

总之,Perl语言中BEGIN/END模块和所在位置无关!

 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值