![](https://img-blog.csdnimg.cn/20201014180756724.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
perl
JophyYao
一个各方面成熟中的coder, 在这里记录成长的点滴。
展开
-
perl 多进程基础
example:my $maxchild=10; for($i=0;$i<=$maxchild-1;$i++) { my $child=fork(); if($child) { # child >; 0, so we're the parent warn "launching child $child\n"; }else{ do_原创 2012-11-25 20:16:44 · 451 阅读 · 0 评论 -
perl操作MongoDB
cpan安装MongoDB:perl -MCPAN -e 'install MongoDB' example: use MongoDB;my $connection = MongoDB::Connection->new( host => 'localhost', port => 27017 );my $database = $connection->dbname;原创 2012-11-25 20:01:40 · 1503 阅读 · 0 评论 -
perl 面向对象 笔记
简单的OOL在Perl中方法有二种,实例方法:用于特定对象的方法,实现执行某个功能.类方法:用于整个类的方法类的多态性:总是某个类型的特定对象选择最合适的行为的特性叫多态性构造器: 类中生成对象实例的方法叫构造器简单的讲perl的对象对象只不过是一个引用….嗯,引用物类就是包方法就是子例程:方法和普通子例程的区别是,它们的包在什么时候被解析,子例程的包是程序开始运行之原创 2012-11-24 13:53:06 · 477 阅读 · 0 评论 -
perl 5.10后的新特征 given-when介绍
given语句Perl中的given-when控制结构能够根据given的参数,执行某个条件对应的语句块,其与C语言中的switch语句类似。只不过更具有Perl的色彩。看看下面的例子,其从命令行中取出第一个参数,$ARGV[0],然后依次走一遍when条件判断,看是否找到了Fred。每个when语句对应不同的处理方式,判断的条件从最宽松的开始测试:use5转载 2012-11-24 14:43:53 · 453 阅读 · 0 评论 -
Net::SSH::Perl 安装问题解决
使用perl -MCPAN -e 'install Net::SSH::Perl',时会卡到这:Math::BigInt: couldn’t load specified math lib(s), fallback to Math::BigInt::Calc at /usr/lib/perl5/site_perl/5.8.8/Crypt/DH.pm line 6在网上找到解决方原创 2012-11-24 14:43:05 · 864 阅读 · 0 评论 -
Perl 处理时间的小技巧 strftime
在 Perl 中处理时间,很多模块,很方便,但是刚开始玩的人,可能没有发现合适的模块,所以使用起来感觉很麻烦.通常大家都 localtime 搞得大家都很火大.我有幸和大师学习了一下,给大家推荐一下一个模块 strftime.我们在推荐前,介绍一下 Perl 下取时间的今生前世吧.以前我想大家都是使用的 localtime 来取得当地日期时间和日期.这个函数如果在标量环境时,会以字原创 2012-11-24 14:28:05 · 603 阅读 · 0 评论 -
使用 Perl 来开发 Nginx 的模块
现在使用 Nginx 的网站多了,所以我们试下,来使用 Perl 来开发 Nginx 的模块.比如可以做一些个性的设置,防盗链,SSI ,Header 替换之类一些特别的作用.另外,我们还可以使用 Nginx 加 Perl 来做一些动态的程序的处理.我近来就想使用这个来开发 Mogilefs 的接口 配置 Nginx 来支持动态 Perl 很容易的,当然,我们得先下 Nginx 自己来编一原创 2012-11-24 14:07:34 · 1112 阅读 · 1 评论 -
正则表达式的一些技巧
两种形式的if then else形如(?(?=regex)then|else) ,如果前向断言匹配成功则必须匹配then部分,否则匹配else部分。四种断言形式都可以使用。(?(?=regex)then|else) 正向先行断言的形式。//echo "abcdefg" |perl -pe 's#(?(?=h)b|e)#_#g'该表达式比较白话的说,就是如果一个字符后面是r原创 2012-11-26 22:48:04 · 538 阅读 · 0 评论 -
使用PAR::Packer编译perl程序
使用pp要先安装PAR::Packerperl -MCPAN -e 'install PAR::Packer'安装后pp工具放在perl安装目录/bin/pp PP 命令的使用:PP来生成PAR文件(相当于JAVA的JAR文件,可用RAR打开来查看),PAR里包含了可运行脚本及其依赖,然后用PARL来运行PAR里的可运行 脚本:方法一:"pp -p -B -I ./sr原创 2012-11-25 19:25:34 · 4941 阅读 · 0 评论 -
perl 使用Log::Log4perl输出日志
code example:use Log::Log4perl qw(:easy);Log::Log4perl->easy_init($DEBUG); //定义输出级别Log::Log4perl::init("/path/log4perl.conf"); //定义配置文件my $logger = Log::Log4perl->get_logger("eventname"); //定义原创 2012-11-25 20:18:02 · 2913 阅读 · 0 评论