发布时间：2013-04-26 16:58:09

缓存服务器上有一个perl写的日志分析脚本，记录所有不重复的url。之后对squid进行目录刷新时，从记录下来的文件中查找匹配的url即可。不过这些天服务器老是出现负载报警，用top观察，这个url_parser.pl脚本一旦执行时，就占用了高达90%的CPU和40%的MEM。wc看存储的url.list文件，有大概4,000,000行；url.`date`.list当前有.........【阅读全文】

发布时间：2013-04-26 11:33:16

#! c:/perl/bin -wuse strict "vars";local $newspaper = "The Times";print "$newspaper";#会报错.Global symbol "$newspaper" requires explicit package name at testing.pl line 3.Global symbol "$newspaper" requires explicit package name at testing.pl line 4.testing.pl had compilation errors.如果.........【阅读全文】

发布时间：2013-04-25 18:10:41

sub doWork{   my $files=shift;   for my $file (@$files)   {      #deal with file.   }} sub getFiles{   #read files from dir and    #you can dispatch the files into a number of arrays   #these .........【阅读全文】

发布时间：2013-04-25 18:07:36

创建线程线程作为 Perl 中的一种实体，其一生可以粗略的分为创建，运行与退出这三个阶段。创建使得线程从无到有，运行则是线程完成其主要工作的阶段，退出自然就是指线程的消亡。线程的运行和普通函数的执行非常类似，有其入口参数，一段特定的代码流程以及执行完毕后返回的一个或一组结果，唯一与普通函数调用的不同.........【阅读全文】

发布时间：2013-03-25 10:54:02

Perl正则表达式中模式匹配选项选项描述g匹配所有可能的Perl正则表达式中模式i忽略大小写m将串视为多行o只赋值一次s将串视为单行x忽略Perl正则表达式中模式中的空白1、匹配所有可能的Perl正则表达式中模式(g选项)@matches="balata"=~/.a/g;#now@matches=("ba","la","ta")匹配的循环：while("balata"=~.........【阅读全文】