摘要：Perl内置特殊变量一、正则表达式特殊变量：1、$n :包含上次模式匹配的第n个子串2、$& :前一次成功模式匹配的字符串3、$` :前次匹配成功的子串之前的内容4、$’ :前次匹配成功的子串之后的内容5、$+ :前一次使用括号的模式匹配的字符串.二、文件句柄特殊变量:1、$| :如果设置为零,在每次调用函数write或print后，自动调用函数fflush,将所写内容写回文件2、$% :当前输出页号3、$= :当前每页长度4、$- :当前页剩余的行数5、$~ :当前报表输出格式的名称.默认值是文件句柄名.6、$^ :当前报表输出表头格式的名称.默认值是带后缀”_TO... 阅读全文

摘要：#!/usr/bin/perl -wuse 5.010;my $dog='Spot';given ($dog) { when (/o/) { say 'The name has an "o"'; continue } when (/t/) { say 'The name has an "t"'; continue } when (/d/) { say 'The name has an "d"'; continue }} 阅读全文

摘要：文件Slurp使用File::Slurp可以只需一个函数把文件内容读入标量或者按行保存到数组中use File::Slurp;my $text=read_file('filename');my @lines=read_file('filename'); 阅读全文

摘要：爬行深度之类的我没加，加上也容易，几句话的事情。直接代码描述吧。我C写得多一些，所以perl代码的风格不怎么perl。 #d:\perl\bin\perl.exe -w use warnings; 阅读全文

摘要：爬虫是一个非常有意思的话题。大家都知道在这个信息时代，数据就是宝藏，当你写好并部署完一批爬虫，然后敲下命令看着它们欢快而又卖力地去爬页面的时候，就像看到它们搬回了一堆堆的钻石原矿一样，绝对有快感的 --- 当然，咱说的是合法地抓取数据，而不是无耻地吸血 ^_^。Web 发展之初，Perl 就得益于强大的文本处理能力而被用来编写各种各样的爬虫程序，今天这篇文章不会讨论真正的爬虫，因为这是一个非常复杂的系统，有非常多复杂的因素需要考虑，我们这篇文章将要说的是非常简单的从特定网页掘取你所需要的数据的方法, 而不是要实现一个完整而成熟的爬虫系统，当然对爬虫感兴趣的同学可以参看 CPAN 上的爬虫框架 阅读全文

摘要：#!/usr/bin/perluse strict;use warnings;use threads;use threads::shared;use Thread::Queue;use Thread::Semaphore;use Bloom::Filter;use URI::URL; use Web::Scraper;my $max_threads = 30;my $base_url = $ARGV[0] || http://www.icylife.net/;my $host = URI->new($base_url)->host;my $queue = Thread::Queue 阅读全文

摘要：谢谢大家的鼓励，我现在给大家另外一个我做的程序谢谢大家的鼓励，我现在给大家另外一个我做的程序Perl轻松制作个人论坛顶贴宝宝，供perl爱好者学习Perl轻松制作个人论坛顶贴宝宝--河南 潘伟一、前言随着网络的盛行很多电脑爱好者都喜欢在网络上自己建立一个论坛，在上面放些大家喜欢的东西供网友欣赏，但是他们中大部分论坛访问量都很小，别人去他们的网站发现很冷清很多就走了，我写了一个关于个人网站顶贴宝宝的程序文章，他可以用不同的用户模拟人的常规语言顶贴，营造一个热闹的、良好的论坛氛围。我以BBSXP为例子给大家介绍，如果读者是其它类型的论坛可以根据情况修改代码。二、开发步骤1、首先在自己的论坛上注册几 阅读全文

摘要：像学历史课本一样学习Perl 第一次接触Perl，还是2008年10月份的时候，当时因为项目重构，需要进行大量的文本操作，于是便拾起了以“文本操作为己任”的Perl语言。当然，带我入门的还是那本赫赫有名的The Llama Book, 即<Learning Perl> 第四版。 然而，由于主要是为了 阅读全文

摘要：perl的sort函数一） sort函数sort LISTsort BLOCK LISTsort SUBNAME LISTsort的用法有如上3种形式。它对LIST进行排序，并返回排序后的列表。假如忽略了SUBNAME或BLOCK，sort按标准字串比较顺序来进行（例如ASCII顺序）。如果指定了SUBNAME，它实际上是个子函数的名字，该子函数对比2个列表元素，并返回一个小于，等于，或大于0的整数，这依赖于元素以何种顺序来sort（升序，恒等，或降序）。也可提供一个BLOCK作为匿名子函数来代替SUBNAME，效果是一样的。被比较的2个元素，会被临时赋值给变量$a和$b。它们以引用传递，所以 阅读全文

摘要：perl获取脚本名字且看一段代码( my $pgm = $0 ) =~ s!.*/(.*)!$1! ;如果我们运行脚本的命令是perl d:/code/test.pl -f c:/test那么$0获取的是脚本本身，也即d:/code/test.pl正则表达式s!.*/(.*)!$1!是将脚本全名中的路径去掉，得到test.pl所以这行代码执行过后，$pgm的值就是test.pl，perl果然是强大呀！转自： http://www.cnblogs.com/softwaretesting/archive/2011/11/10/2244171.html 阅读全文

摘要：Perl高精度计时器use strict ;useTime::HiRes qw(gettimeofday) ;sub Test{ # sec: seconds # usec: microsecondmy ($start_sec,$start_usec) = gettimeofday() ; #======================# # Place your code here!# #======================# my ($end_sec,$end_usec) = gettimeofday() ; # C... 阅读全文

摘要：map 语法： map EXPR, LIST map BLOCK, LIST 语义： 对于LIST中的每个元素执行EXPR或者BLOCK，如果返回值存储在list中，则表示处理后的list，若返回值存储在scalar中，则表示处理后的list中元素个数。下面是几个例子. 阅读全文

摘要：【转】 各种工具正则表达式之间区别the difference of regular expression among perl awk sed grep 2011年01月12日 星期三 16:05转载自 zhujian0805最终编辑 zhujian0805Issue: http://blog.chinaunix.net/u/634/showart.php?id=2466---------------------------------------------------------------------------------------------------------------- 阅读全文