本文链接: http://www.php-oa.com/2009/11/12/perl-debug.html perl程序的调试，以前玩php都是print,var_dump()，firebug之类来调试。在perl中，也有很多来方法我们调试的。在我看来调试分二种，一种是功能调试（排错之类保证功能完整）.一种是性能调试。 功能调试 1. 最常用的方法 (1. print:这个用户就不用写了吧 (2

#cat send_mail.pl #!/usr/bin/perl -w #Author:duhui #Date :2010-11-29 #perl -MCPAN -e shell #cpan>install Net::SMTP_auth use Net::SMTP; use Net::SMTP_auth; use MIME::Base64; $mail_server = 'smtp.163.co

我是使用root 用户 权限是root   1 设置crontab 看看执行情况 crontab -e 编写root的crontab 内容设置为  * * * * * echo "root crontab test" >> /tmp/test.txt 观察运行的情况 2 crontab 的重启 sudo /etc/init.d/cron stop; /etc/init.d/cron start 活

本文转贴自 http://blog.chinaunix.net/u/12178/showart_511527.html 有空的时候总喜欢看看论坛中的perl版，看久了自然也就懂了perl的一些基础知识。今天市场部的人要求我们帐务中心每个周向其出示一份周 报，报表格式固定不变（固定的提数sql语句，每周五提数并发邮）。本想用delphi写一个，但好久不用delphi了，怕语法忘了写不出来，于是便想

服务端传送数据使用SSL加密    基于wsse2.0开发的.net webservice soap xml:      message = qq{  <soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap

TCL是一种类似shell脚本的语言，你可以使用它来完成许多操作。不过，我介绍它的 主要原因是expect是从它发展出来的。如果你想要写一个能够自动处理输入输出的脚本 （如向用户提问并且验证密码）又不想面对C或者Perl，那么expect是你的唯一选择。   11.1.1 TCL语言 要使用TCL，你必须先安装这个程序： % rpm -q tcl tcl-8.0.5-30 TCL语言可以用交互式或

Perl lib version (v5.8.3) doesn't match executable version (v5.8.8) at D:/oracle/perl/5.8.3/lib/MSWin32- x86-multi-thread/Config.pm line 32. perl 的版本不一致，原来最先安装了oracle 10G，在安装oracle时也会安装perl。打开Config.p

经典是经过了时间考验的 APR_DECLARE_NONSTD(unsigned  int ) apr_hashfunc_default( const   char  *char_key,                                                         apr_ssize_t *klen)   {       unsigned int  hash = 

一.什么是closure perl 中有一个概念叫“closure”（闭环，来源于数学）： 假如有一个subroutine, 它访问了在其外部声明的私有变量，那么这个subroutine就叫做closure.   例如： {   my $count = 0;   sub callback { print ++$count; };   sub get_count{return $count;}; }

Perl程序设计中常用的函数指令:#说明:注示符号Remark宣告示例:#这是一个注示说明--------------------------------------------------------------------------------指令:print语法:print Filehandle LIST说明:这个Filehandle可以看作在I(INPUT)/O(OUTPUT)之间的一个

放在我的code库内了，http://farmerluo.googlecode.com/files/check_redis.pl 介绍下怎么安装： 脚本用到了perl的Redis库，需要先安装这个： # perl -MCPAN -e shell # install Redis wget http://farmerluo.googlecode.com/files/check_redis.pl cp

在Linux下的perl程序生成的文本文件，在Windows系统下用记事本打开，以/n换行显示不正常，以/r/n显示正常。 在Windows下的perl程序生成的文本文件，在Windows系统下用记事本打开，以/n换行显示正常，以/r/n显示正常。 1.Windows /n 2.Unix|Linux /r/n

原文出自： http://263.aka.org.cn/Lectures/002/Lecture-2.1.2/perl-reg.html 感谢AKA及作者。 9    Perl 中的正则表达式 正则表达式的三种形式  正则表达式中的常用模式  正则表达式的 8 大原则         　　正则表达式是 Perl 语言的一大特色，也是 Perl 程序中的一点难点，不过如果大家能够很好的掌握他， 就可

简介       Jakarta-ORO是最全面以及优化得最好的正则表达式API之一，Jakarta-ORO库以前叫做OROMatcher，是由Daniel F. Savarese编写，后来他赠给Jakarta Project。       Jakarta-ORO正则表达式库支持Perl5兼容的正则表达式语法。       环境 jdk1.5.0_12， jakarta-oro-2.0.8   

利用sar linux命令显示，cpu的使用率如下： Linux 2.6.18-92.el5 (qa-lombardi7-10.qa.ebay.com) 11/24/2010 01:42:02 AM CPU %user %nice %system %iowait %steal %idle 01:42:03 AM all

基本用法 # 初始化 %h为空数组 %h = {}; # 用数组初始化%h为 a=>1, b=>2 %h = ('a', 1, 'b', 2); # 意义同上，只是另一种更形象化的写法。 %h = ('a'=>1, 'b'=>2); #如果key是字符串，可以省略引号。下面这行和上面那行是一样的 %h = (a=>1, b=>2); # 用{}来访问 print "$h{a}/n&quo

#需要使用的模板 use strict; use Spreadsheet::ParseExcel; use Spreadsheet::WriteExcel; use Spreadsheet::ParseExcel::FmtUnicode; use Unicode::Map();#该引用是为了实现中文的写入 use DBI; use Encode;   #需要定义的全局变量 my $MYEXCEL;

arr="Olu|94785";  $str="ORTHOMCL428(2 genes,2 taxa):  Olu|94871(Olu) Ota|35190(Ota)";  if($str!~//Q$arr/E/(/)  {     print $arr,"/n";  }   /Q /E可以消除变量中特殊的perl符号的作用

--------------------------------------------------------------- 调用系统命令dir或者ls,将其输出再放入一个数组就可以了. --------------------------------------------------------------- opendir(DIR, $dir_name) || die "Can't ope

abs PERL 代码: #!/usr/bin/perl -w #$result=abs(value); # @re=abs(-23); print "/@re/=abs/(/-23/)/;/n"; print "/@re/=@re/n";  array PERL 代码: #!/usr/bin/perl -w @num=qw(11 33 2 dd 0); printf "first:@num/n"

Forking in perl is a nice thing to do, and for some it’s a hard thing to understand. It can be pretty easy to get lost especially since there are 100 ways to the same thing. I’m going to attempt to ex

Forking in perl is a nice thing to do, and for some it’s a hard thing to understand. It can be pretty easy to get lost especially since there are 100 ways to the same thing. I’m going to attempt to ex

简介： 这篇文章将详细介绍 EPIC 组件的安装，EPIC 编辑环境，调试运行环境，着重介绍如何使用 EPIC 来快速、简便、准确地调试 Perl 语言程序，包括对于 Perl 程序的单步执行，断点用法，局部、全局变量实时监控，子函数执行监控，错误以及警告信息实时显示等等内容。利用 EPIC 强大编辑以及调试功能，可以将 Perl 语言适合花短时间完成程序的特点发挥地淋漓尽致，为 tester 的

先看man中介绍：       -o, --only-matching：               Show only the part of a matching line that matches PATTERN. -P, --perl-regexp：               Interpret PATTERN as a Perl regular expression.   例如 #  

# perl -MCPAN -e shell cpan> o conf urllist unshift   http://www.perl.com/CPAN/ cpan> o conf commit 在search.cpan.org也看到有两个中国的镜像，考虑到稳定性，还是使用perl.com的 还有一点是在用cpan的时候，因为模块安装时默认的make  test不成功，make install

这周准备对openfire3.6.4进行压力测试，从一些资料显示TSung对jabber协议有较好的支持，因此今天下载安装并初步对压力进行测试，主要的步聚如下： 1、从官方网站下载安装包（我的电脑是ubuntu ,所以下载的是Deb包）。 目前官方最新版本为1.3.3， 下载地址为：      http://tsung.erlang-projects.org/dist/ubuntu/tsung_1

话说这几周要把webkit在symbian的手机上跑起来，本以为不太难的任务，结果做了大概有3周之久，走了很多路，不过最终还是胜利地在真机运行了，很欣慰，说说过程吧。 最先又是一番google，（最近google又经常被墙，用得很郁闷），要在symbian上跑还是先从s60webkit入手肯定是比较快，要不从webkit主干上移植，凭我一人之力估计得要一年吧。选定方向后，就开始拉代码了，大家都说2

在Perl中可以用open或者sysopen函数来打开文件进行操作，这两个函数都需要通过一个文件句柄（即文件指针）来对文件进行读写定位等操作。 open函数为例: 一、打开、关闭文件      open的返回值用来确定打开文件的操作是否成功，当其成功时返回非零值，失败时返回零，因此可以如下判断：     if (open(MYFILE, "myfile"))      {         # he

Perl:简单应用，checked PHP:熟练建站，30days R:熟练运用，30days MySQL:简单运用，30days Hadoop:简单了解，30days JSP:熟练建站，30days

chomp是用来删除换行符. [root@rs1 ~]# cat t.pl #!/usr/bin/perl my $c="I love me"; chomp($c); print "$c/n"; [root@rs1 ~]# ./t.pl I love me [root@rs1 ~]# chop是用来删除最后一个字符. [root@rs1 ~]# cat t.pl #!/usr/bin/perl m