- 博客(7)
- 收藏
- 关注
RSS订阅原创 从CPAN上下载module详解
1.下载module并解压。2.阅读readme文件，照做既可，一般会有以下一个步骤：（1） perl Makefile.PL（2）nmake（3）nmake test（4）nmake install
2004-11-15 17:29:00
1367
原创 比较两个目录文件是否相同
有时候我们需要比较vss里两个目录下的source是否一致，而但从日期根本看不出什么来，所以需要逐一的比较，项目很大时，这项工作比较恼人。所以我做了一个工具，它能调查出来哪些文件内容相同，哪些不同，哪些仅在一个目录存在。 compDir.pl #!/usr/bin/perldie "parameter is not enough./n" if @ARGV $now = localtime
2004-11-11 17:24:00
1460
原创 perl子例程参数传递方式之二：数组作参数
我们已经知道， perl子例程参数传递方式类似于引用（或者地址）传递，如果在sub里改变形参的值，实参的值亦随之改变。注意：只有实参为一个变量的时候，形参的值才可以改变。类似 &test(1, "abc"); sub test { $_[0]++; .... } 的代码将会报错： Modification of a read-only value attempted at D:/PerlE
2004-11-11 16:11:00
1640
原创 perl子例程参数传递方式初探
perl里，子例程采用可变长参数列表，因此参数的个数不再限制，体现出动态语言的优点。由于传递的是引用，所以可以在sub里改变它的值。 samle01.pl #!/usr/bin/perl sub sub_routine{ $_[0] = "hello"; $_[1] = 999; print "sub_par1:$_[0]/n"; print "sub_par2:$_[1]
2004-11-11 13:40:00
1677
原创 perl里字符串长度的取法
perl好像没有提供strlen函数，用rindex函数可以同样得到字符串的长度。 $str = "abcd 1234"; $len = rindex $str."/$", "/$"; print "$len/n"; 执行结果： lenght of abcd 1234 is: 9
2004-11-11 11:22:00
1609
原创 由登楼想到的
来公司上班，电梯少人多，于是选择登楼而上。我登楼时有个习惯，喜欢超过别人，于是不自觉地脚步加快。刚才还在前面的人，现在我回头都看不到了，只能听见他不紧不慢踏踏踏的沉重脚步声。为了这个我也累得够呛，快速体力消耗的结果是我的双腿突突发战，回望四周，只有我一个，形影相吊，孤身一人向上走。 我突然想到，高手多寂寞，寂寞的原因恐怕就在这里。一个人若是总盼着自己比同伴走的更远，寂
2004-11-11 09:10:00
751
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人