2011-01-15 wcdj (1) 标量(scalar) (2) 数字 (3) 整数直接量 (4) 非十进制的整数直接量 (5) 数字操作符 (6) 字符串 (7) 区别：单引号内的字符串直接量和双引号内的字符串直接量 (8) 字符串操作符 (9) 数字与字符串之间的自动转换 (10) Perl内建警告信息 (11) 标量变量 (12) 用print输出结果 (13) 字符串中的标量变量内插—

读完图灵俱乐部译的《编程人生》的前两章，给我第一感觉就是：听君一席话，胜读十年书。 Peter Seibel先生对编程先驱Zawinski、Fitzpatrick的访谈非常精彩。从这两章访谈中，我收获到了以下几点：   1. 保持好奇心，充满激情，编程人生才精彩，编程人生才快乐。著名黑客Zawinski好拆卸电子玩具一样对软件的内在充满了好奇，Fitzpatrick从小就对软件的神奇如痴如醉。同时

这道练习题是小骆驼中hash中的一道，感觉很有代表性。       读取一些单词，每行一个直到文件结束，然后出每个单词出现的次数。 有两种方法可以完成它，如下 第一种方法 #!/usr/bin/perl -w print "Enter words:" chomp(@k=<>); foreach $k (@k) {              $count{$k} +=1 ; #计算单词的次数 } f

A: 如何找到2在 hash 表值当中呢? #!/usr/bin/perl %x = ('a' => 1, 'b' => 2, 'c' => 3); 给出几种方法: 1. my %reverse = reverse %x; if( defined( $reverse{2} ) ) { print "2 is a value in the hash!/n"; } 2.找出键盘k

$foo = pack("WWWW",65,66,67,68); # foo eq "ABCD" $foo = pack("W4",65,66,67,68); # same thing $foo = pack("W4",0x24b6,0x24b7,0x24b8,0x24b9); # same thing with Unicode circled letters. $foo = pack

  $! 根据上下文内容返回错误号或者错误串 $- 当前页可打印的行数,属于Perl格式系统的一部分 $” 列表分隔符 $# 打印数字时默认的数字输出格式 $$ Perl解释器的进程ID $% 当前输出通道的当前页号 $& 与上个格式匹配的字符串 $( 当前进程的组ID

server                 {                                 listen        80;                                 server_name www.mcshell.org mcshell.org;                                 index    index.php i

Perl Fork example This examples fork 10 child processes. It will wait for all childs to finish before exiting. #!/usr/local/roadm/bin/perl use strict; use warnings; print "Starting main program

1、Linux/Unix下的安装方法：　 　　Linux/Unix下安装Perl模块有两种方法：手工安装和自动安装。第一种方法是从CPAN上下载您需要的模块，手工编译、安装。第二种方法是联上internet，使用一个叫做CPAN的模块自动完成下载、编译、安装的全过程。　 a、手工安装的步骤：　 从CPAN下载了DBI模块1.13版的压缩文件DBI-1.13.tar.gz，假设放在/usr/loca

 我发下个人的链接：http://www.wachnew.com   以下是我学perl的时候记录的一些知识点，方便以后查看,以下代码是一个程序文件，可以在perl解析器上成功运行。   #!/usr/bin/perl -w   #知识点１：s/匹配模式串/替换串/; # s///替换成功后返回为真，否则为假 $_ = "hello world, again.."; s/hello/nice/; 

在此发下个人广告，见谅，有兴趣的朋友可以看下：http://www.wachnew.com   #!/usr/bin/perl -w $family_name{"fred"} = "flinkstone";   #给哈希键赋值 $family_name{"barney"} = "rubble"; foreach my $person (qw /fred barney/ )  #将私有变量声明写到f

perl 编码风格： 1.K.R 2.GNU 3.BSD 采用K&R

2011-01-19 wcdj   (1) 列表与数组 (2) 访问数组中的元素 (3) 特殊的数组索引值 (4) 列表直接量 (5) qw简写 (6) 列表的赋值 (7) pop和push操作符 (8) shift和unshift操作符 (9) 字符串中的数组内插 (10) foreach控制结构 (11) Perl的“老地方”：$_ (12) reverse操作符 (13) sort操作符 (

在所有文件的第一行后添加一行注释，例如: #!/usr/bin/perl ..... .... 在其后面添加添加一行## Copyright (c) 2011 by mcshell 效果如下 #!/usr/bin/perl ## Copyright (c) 2011 by mcshell ... ... 完成代码如下 #!/usr/bin/perl ## Copyright (c) 2011 by

/proc/stat 的解释 关于linux 系统/proc/stat的解释和应用。 这段perl代码，可以提供计算cpu利用率数据采集         [~]$ cat /proc/stat cpu 432661 13295 86656 422145968 171474 233 5346 cpu0 123075 2462 23494 105543694 16586 0 4615 cpu1 111

  $string = join(" ","this","is","a","string");  @list = ("words","and");  @string = join("::","@list","color");     print "@string\n";   #words and::color  @string = joi

因工作需要，要遇到很多Excel格式的文件需要处理，而Perl语言是我的最爱，只好去网络上搜索一下，搜到一篇《Perl通过WIN32 OLE来操作EXCEL》文章，（地址：http://www.dlog.cn/wangchi/diary/25001），以下是其他信息：   参考资料： 1、《Perl5编程核心技术》——杜经农（北京希望电子出版社）2000.11第一版 2、Microsoft Exc

CPAN 是 Comprehensive Perl Archive Network 的缩写，中译为 Perl 综合典藏网。他包含了极多用 Perl 写成的软件和模块。 CPAN相关软件的安装方法 最近几天安装SPAMASSASSIN，牵涉到许多CPAN的安装，以前都是缺少什么，就去CPAN网站寻找相应的模块，自己编译安装，后来发现其实CPAN自己的shell命令就能非常方便的安装相应模块，真是方便

 使用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 在网上找到解决方法：修改/us

2011-01-22 wcdj   同一个表达式，出现在不同的地方会有不同的意义。除非你知道上下文（context），否则一定没办法确认它的含义。 所谓上下文：指的是表达式所在的位置。 42 + something # 这里的something必须是标量 sort something # 这里的something必须是列表 @people=qw(wcdj gerry yj); @sorted

 当perl脚本运行时，从命令行上传递给它的参数存储在内建数组@ARGV中，@ARGV是PERL默认用来接收参数的数组，可以有多个参数，$ARGV[0]是表示接收到的第一个参数，$ARGV[1]表示第二个。 使用方法为： perl   my.pl $ARGV[0]  $ARGV[1] 看一个具体例子： 比如文件1的内容： 1320238 1320239 1320239 1320238 132023

#!/usr/bin/perl use POSIX qw(strftime);     my $day_Ymd = strftime("%Y%m%d", localtime(time - 86400 * $days)); my $day_ymd = strftime("%y%m%d", localtime(time - 86400 * $days)); print $day_Ymd,"/n"; m

今天早上有个小问题难住了，在sql中的insert语句中需要打印单引号。 awk '{print    "insert into webconfig (domain,webdir) values("$1","$2")"";"}' 因为需要打印出$1,$2变量而且需要单引号，试了很多种方法都不行，转义，双引号都已过了，都是不能输出。 最后参悟了一句话： 双引号会解释字符串的特别意思,而单引号直接使用

调试函数 比较 perl #!/usr/bin/perl use POSIX qw(strftime); use Data::Dump qw(dump ddx); my %MonthAbbr = ( "Jan"=>'01', "Feb"=>'02', "Mar"=>'03', "Apr"=>'04', "May"=>'05', "Jun"=>'06',"Jul"=>'07',"Aug"=>'08'

perl读写文件和命令行解析   一 读写文件 实例：   use  strict; use  warnings; sub  open_display_file {    #  the filename should be passed in as a parameter    my   $filename   =   shift ;    #  open file to the handle <

require 5.006 当版本号小于 5.006 的时候，会返回失败，从而导致模块加载失败。 所以它的作用就是保证模块调用环境的 Perl 版本。 our 和 my 一样，都是对变量的声明， 不过 our 声明的是包全局变量， 而 my 声明的是词法变量。 不过，经过 our 声明的变量，它会变得像一个词法变量一样， 其实这也是 our 存在的目的：用来欺骗 strict pragma，使 s

 Perl 1.命令行参数传递  *Perl **@ARGV $_ARGV[0] $#ARGV为参数的个数-1 ($#array 只适用于@array不适用%hash) *Shell $1 $2 参数个数$#(不用减1,是否可以用来判断是否有命令行参数？) 2.函数参数传递 *Perl **@_　传递了所有的函数参数。如果是对象中的方法。$_[0] 是类的名字。一般用shift去除后取得方法参数.

Perl到了第五版增加了模块的概念，用来提供面向对象编程的能力。这是Perl语言发展史上的一个里程碑。此后，广大自由软件爱好者开发了大量功能强大、构思精巧的Perl模块，极大地扩展了Perl语言的功能。CPAN（Comprehensive　Perl　Archive　Network）是internet上Perl模块最大的集散地，包含了现今公布的几乎所有的perl模块。　 　　　　几个主要的CPAN站

Perl Debug The concepts of the perl debug are familiar to most programmers. Trace, breakpoint, and conditional breakpoint (watchpoint) are effective means with which to find problems in your perl scri

    OLE是一种基于COM的技术。OLE允许应用程式使用其他应用程式提供的通用接口来访问其组件和功能。而在Perl里使用Win32::OLE模块，来实现对OLE对象的支持。     实现Automation接口的应用程式（或DLL动态链接库）被称作 Automation Server。而创建并使用Automation接口的应用程式被称做 Automation Controller 或 Auto