技术头条 - 一个快速在微博传播文章的方式     搜索本站
您现在的位置首页 --> 其他 --> Perl闭包实例解释

Perl闭包实例解释

浏览:2654次  出处信息

Perl闭包实例解释

以下是代码片段:

#!/usr/bin/perl
sub errorMsg{
   my $lvl=shift;
# define the subroutine to run when called.
   return sub{
      my $msg=shift; #define the error type now.
      print "Err Lever $lvl:$msg\n"}; #print later.
}
$severe=errorMsg("Severe");
$fatal=errorMsg("Fatal");
$annoy=errorMsg(Annoying);
 
&$severe("Divide by zero");
&$fatal("Did you forget to use a semi-colon?");
&$annoy("Uninitialized variable in use");

建议继续学习:

  1. perl更新/修改/删除文本文件内容    (阅读:9423)
  2. perl大牛flw传说    (阅读:6506)
  3. perl模块Getopt::Std用法及实例-从命令行读取参数模块    (阅读:5866)
  4. [Perl] Template::Toolkit 模板技术.    (阅读:5360)
  5. 在perl中连接和使用sqlite做数据存储    (阅读:5039)
  6. Perl命令行常见用法及技巧    (阅读:4791)
  7. perl的expect使用方法,实现非交互式登录。    (阅读:4478)
  8. perl模块之MIME::Lite发送有附件的邮件    (阅读:4432)
  9. for 循环为何可恨?    (阅读:4439)
  10. Perl 倒行分析文件方法。perl读文本文件,从末尾往前读.    (阅读:4424)
QQ技术交流群:445447336,欢迎加入!
扫一扫订阅我的微信号:IT技术博客大学习
© 2009 - 2024 by blogread.cn 微博:@IT技术博客大学习

京ICP备15002552号-1