Mysql query error 1062 : Duplicate entry '1743388248-530' for key 'PRIMARY' | SQL : insert into `blogread_browse` (`timeint`, `idarticle`, `idcate`, `query`, `ip`, `referer`, `ua`) values (unix_timestamp(), 530, 8, '/it/article/530?f=catetitle', '18.190.158.76', '', 'Mozilla/5.0 AppleWebKit/537.36 (KHTML, like Gecko; compatible; ClaudeBot/1.0; +claudebot@anthropic.com)') Perl闭包实例解释 -- 其他 -- IT技术博客大学习 -- 共学习 共进步！
    技术头条 - 一个快速在微博传播文章的方式     
您现在的位置：首页 --> 其他 --> Perl闭包实例解释

Perl闭包实例解释

浏览:2766次  出处信息

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

京ICP备15002552号-1