Mysql query error : | SQL : set names utf8 Perl闭包实例解释 -- 其他 -- IT技术博客大学习 -- 共学习 共进步！
    技术头条 - 一个快速在微博传播文章的方式     
您现在的位置：首页 --> 其他 --> Perl闭包实例解释

Perl闭包实例解释

浏览:3040次  出处信息

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更新/修改/删除文本文件内容    (阅读：10393)
  2. perl大牛flw传说    (阅读：7433)
  3. perl模块Getopt::Std用法及实例-从命令行读取参数模块    (阅读：6757)
  4. [Perl] Template::Toolkit 模板技术.    (阅读：6085)
  5. Perl命令行常见用法及技巧    (阅读：5658)
  6. 在perl中连接和使用sqlite做数据存储    (阅读：5625)
  7. Perl 倒行分析文件方法。perl读文本文件，从末尾往前读.    (阅读：5390)
  8. perl的expect使用方法，实现非交互式登录。    (阅读：5307)
  9. for 循环为何可恨？    (阅读：5261)
  10. perl模块之MIME::Lite发送有附件的邮件    (阅读：5153)
QQ技术交流群：445447336，欢迎加入！
扫一扫订阅我的微信号：IT技术博客大学习
<< 前一篇：perl更新/修改/删除文本文件内容
后一篇：Perl 倒行分析文件方法。perl读文本文件，从末尾往前读. >>
文章信息
© 2009 - 2025 by blogread.cn 微博：@IT技术博客大学习

京ICP备15002552号-1