sxlwzl的专栏

1，问题： 在公司的服务器中，自己需要某一个cpan 的lib，服务器上没有，自己有没有权限安装，怎么办？2，直接在perl脚本中直接定义lib目录  1 #!/usr/bin/perl   2 use strict;  3 use warnings;  4 use lib '/home/zl/perl/lib';  5 use Net::SMTP; ~

zz ： Perl调用外部命令的方式和区别转自：http://hi.baidu.com/develop_skill/blog/item/d69bc0cbf010da4ff31fe72b.html主要的方式简述如下：1. system("command");使用该命令将开启一个子进程执行引号中的命令，父进程将等待子进程结束并继续执行下面的代码。2. e

参考 ：  http://net.pku.edu.cn/~yhf/tutorial/perlstep/perlstep4.html指令:last 退出循环陈述语法:last范例:for($i=1;$i{ last if ($i==5); #如果$i等于5的话就退出for循环print"$i\n";}会把1到4之间的数值显示出来.指令:

use Cwd;       my $dir = getcwd;

zz ： http://search.cpan.org/~jmcnamara/Spreadsheet-ParseExcel-0.59/lib/Spreadsheet/ParseExcel.pm#NAME#!/usr/bin/perl -w use strict; use Spreadsheet::ParseExcel; my $parser = Spread

POSIX 表示可移植操作系统接口（Portable Operating System Interface ，缩写为 POSIX ），POSIX标准定义了操作系统应该为应用程序提供的接口标准，是IEEE为要在各种UNIX操作系统上运行的软件而定义的一系列API标准的总称，其正式称呼为IEEE 1003，而国际标准名称为ISO/IEC 9945。POSIX标准意在期望获得源代码级别的软件

zz : http://blog.chinaunix.net/uid-24504673-id-112319.html注： if ( -f $File::Find::name )  -f判断是file简单记录下File::Find：在目录/root/learnperl/perltest 下寻找以.sh结尾的文件。#!/usr/bin/perl

#!/usr/bin/perl -wuse File::Basename;my $full_path_name='/home/zl/perl/basename/base.pl';my @suffix_list=qw(.pl .txt);my ($name, $path, $suffix)=fileparse($full_path_name, @suffix_list);print "

阿达#!/usr/bin/perl -wmy $file = "/home/zl/study/perl/fileexist/t.txt";if(-e $file){ print "t.txt exist. \n";}else{ print "do not exist. \n";}

zz  ：  http://codingstandards.iteye.com/blog/1157513

zz : http://www.yiibai.com/perl/perl_chdir.html

zz: http://developer.51cto.com/art/201007/211869.htm本文和大家重点讨论一下Perl Perl eval函数的概念，Perl eval函数可以看作是Perl虚拟机，它的参数就是一段Perl代码，并且利用’Perldoc–feval’可以获取Perl eval函数使用帮助。具体内容请看本文详细介绍。Perl eval函数探讨P

1 #!/usr/bin/perl 2 # 3 4 my @num=(1,2,4,8,16,32); 5 my @num_bigger_than10 = grep $_ > 10 , @num; 6 print join' ', @num_bigger_than10; 7 8 my @num_function = grep my_function($_) , @

1，需要的两个主要的libhttp://cpansearch.perl.org/src/GBARR/libnet-1.22/Net/SMTP.pmhttp://search.cpan.org/~gbarr/Authen-SASL-2.16/lib/Authen/SASL.pod

zz：http://wenku.baidu.com/link?url=Sc7Ac06ahVPSH7erNTsy1JpIGFDSvUnQSAE9cViVVP_FtGzSMt9pToRLoZg_fyL7Q2Bw6Hx151ydnXBtVFpi6Ax_bxHxbpaiaiwADp_8iFm###

zz ：http://stackoverflow.com/questions/18150841/gdgraph-with-perlGD::Graph with Perl

查找一个压缩的.gz

if(exists $hash{'key'}){print(OK);}

http://search.cpan.org/~chorny/Switch-2.17/Switch.pm use Switch; switch ($val) { case 1 { print "number 1" } case "a" { print "string a" } cas

Getopt::Long 参数控制模块，比直接使用@AGRC

use File::Find;use List::Util 'first';  $timezone = `date +%Z`;if($timezone =~ /PST/ or $timezone =~ /IST/) {   use lib "/auto/snap-hw/c3/people/jsree/perlmodules/lib/site_perl/";}else{

zz : http://www.jb51.net/article/12782.htm一、打开、关闭文件   语法为open (filevar, filename)，其中filevar为文件句柄，或者说是程序中用来代表某文件的代号，filename为文件名，其路径可为相对路径，亦可为绝对路径。    open(FILE1,"file1");    open(FILE1, "/u/jq

zz ： http://paddy-w.iteye.com/blog/969366      1、vrapper         下载地址：http://vrapper.sourceforge.net         vrapper是免费的。安装后在eclipse的工具栏有一个按钮，可以随时选择是否启用vim编辑模式。vrapper的官网上说有类似.vimrc的配置文件，文件名为.

zz : http://blog.youkuaiyun.com/dongtingzhizi/article/details/13509079目录(?)[+]　　前两天项目中遇到了一个Perl脚本程序，需要读懂该程序，由于以前重来没有用过Perl语言，所以没法搞定。今天抽空把该语言的基础看了一遍，基本上内读懂Perl脚本程序了吧。真是如网上很多分享的经验所说，第一：会一门

zz ： http://www.jb51.net/article/12780.htm一、算术操作符 ：+(加)、-(减)、*(乘)、/(除)、**(乘幂)、%(取余)、-(单目负)  (1)乘幂的基数不能为负，如 (-5) ** 2.5 # error；  (2)乘幂结果不能超出计算机表示的限制，如10 ** 999999 # error  (3)取余的操作数如不是整数，四

my：创建私有变量。state：告诉Perl该变量属于当前子程序的私有变量。第一次调用该子程序的时候，Perl声明并初始化变量$n, 而再接下来的调用中，这个表达是将被Perl忽略。my：use warnings;use strict;my @names = qw (name1 name2 name3 name4);my $result = which_name_is(

小骆驼->羊驼->大骆驼小骆驼书：perl语言入门（Learning Perl）羊驼书：（Intermediate Perl）没有中文版大骆驼书：perl语言编程（Programming Perl）

use warnings;use strict;chomp ($a = );chomp ($b = );$maxof3 = &max3 ($a, $b);print "max3 is: ".$maxof3."\n";sub max3{ my($max_so_far) = shift @_; foreach (@_){ if($_ > $max_so_far){

perl 函数传递以及my使用的一些理解和实验证明.请高手过来指点.

zz ： http://www.jb51.net/article/30475.htm在为大家介绍PRINT这个函数之前,先让我们来看看PRINT函数中特殊打印字符：指令：#说明：注释符号Remark宣告示例：#这是一个注释说明指令：print语法：print Filehandle LIST说明：这个Filehandle可以看作在I(INPUT)/

zz: http://learnxinyminutes.com/docs/perl/Learn X in Y minutesWhere X=perlGet the code: learnperl.plPerl 5 is a highly capable, feature-rich programming language with over 25 years of develo

zz： http://www.php-oa.com/2011/05/25/perl-app-log-logminimal.html使用 Log::Minimal 记录程序日志写程序时,打印日志是非常好的习惯,对我们排错,查问题非常有用.平时我们喜欢自己写个函数来处理日志,要么直接 print .在 Perl 中有个专门处理日志的模块叫 Log::Log4perl 这个是

参考：1，perl模块Data::Dumper应用一例分享http://www.jb51.net/article/33973.htm

http://search.cpan.org/~pevans/Scalar-List-Utils-1.38/lib/List/Util.pm

zz : http://bbs.chinaunix.net/thread-3573972-1-1.htmlhttp://www.cr173.com/soft/16129.html 软件下载一、初步认识RegexBuddy安装比较简单（略过）首先，我们先对RegexBuddyg 产生一个整体的初步的认识，而不是设法解释所有的东西。RegexBuddyg是相当易懂的

zz  : http://bbs.linuxpk.com/thread-37897-1-1.htmlq运算符对'号转义的方式$someword = 'i \'ve some money';可以等价于:$someword = q~i 've some money~;qq运算符对"号转义的方式$someword = "i say \"ok!\".";可以等价于:$s

zz : http://www.chinaunix.net/old_jh/25/159388.htmlPerl 中的正则表达式正则表达式的三种形式 正则表达式中的常用模式 正则表达式的 8 大原则

zz : http://hi.baidu.com/kenking2008/item/85b170c1d24150ddef183b49在Perl中获取当前目录的完整路径有两种方法：1. use Cwd;my $dir = getcwd;#$dir中即为当前目录的完整路径信息。2. my $dir = $ENV{'PWD'};#ENV是一个散列，用于

利用perl 制作漂亮的xls1，需要的工具： use Spreadsheet::Read;use Excel::Writer::XLSX;

一、注释1，单行注释#代码2，多行注释=pod代码=cutPlain Old Documentation，简单旧文档。说白了就是在程序中插入的、不被编译器编译的文档，再说白了基本就是注释。3，余下的全部注释__END__代码#!/usr/bin/perluse strict;use warnings;#print("hello ,1");=po