redis01:/root# cat abc GET /api/sale/get_voucher_list?loupan_id=32300&suid=kJIjl&loupan_site=sc&code=d30d52a87c0ba4e342c9315d44845be5&source=pc HTTP/1.1 GET /api/sale/get_voucher_list?loupan_id=108578&loupan_site=huizhou&code=26f3c…

sub help{ print <<EndOfUsage;\e[1;37mHELP :1. Usage :  perl $0 input output 2. Function : transfer cds to pep               3. Example : perl $0 test.cds  test.pep\e[0mEndOfUsage }…

my $mw = MainWindow->new(-title => "Mem monitor"); $frm_name1 = $mw -> Frame()->pack(-side=>"top",-fill => 'x'); $but1 = $frm_name1 ->Button(-text => "BackOffice 发布",-command =>\&push_b1)-> p…

程序脚本在运行过程中,总会碰到这样那样的问题,我们会预知一些问题并为其准备好处理代码,而有一些不能预知.好的程序要能尽可能多的处理可能出现的异常问题,本文就总结了一些方法来解决这些异常,当然perl在这个处理了不及其它同类语言,但也不会差到那里.在开始前,我们先盘点一些关于perl的优缺点. 0. 历史太悠久了.你可以在1997年的计算机上找到perl5.0.(只是吐槽一下,历史悠久没什么不好,与时俱进才是关键) 1. 不回收循环垃圾(这是个硬伤,也许和Perl设计的初衷有关,小脚本影响不大:但…

下午和群里的朋友争论了一下,有关awk和perl处理文本的速度,自己一直比较推崇perl,对awk知之甚少,结果就想当然的觉得perl快,结果一番争吵后,觉得还是实验一下靠谱,(其实是想证明一下perl确实很快……唉,找虐啊) 先是制造了一个文本,1200万行,大致内容如下 row.txt: row1 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36…

常用脚本语言Perl,Python,Ruby,Javascript一 Perl,Python,Ruby,Javascript Javascript现阶段还不适合用来做独立开发,它的天下还是在web应用上. 主要做数据挖掘算法的研究,应该会处理大量的文本. 提到文本处理,相信大部分人都会说应该用Perl.文本处理很强大,语法给人的感觉太乱了, Perl的基本语法,用它做了一些简单的文本处理工作,在Unix或 Linux上做系统管理Perl是最好的选择. Python据说吸收了Perl的一些东西,语…

转自:http://www.jbxue.com/article/12638.html 使用perl命令批量替换文件内容. 对linux下的文件内容进行替换,有时不用编写perl脚本,用perl命令就可以实现. perl 命令可以批量替换文件中的一些内容,操作起来非常高效. 几个例子: perl -pi -e "s/aaa/bbb/gi" test.txt 把test.txt文件中的字符aaa替换成bbb perl -pi.bak -e "s/aaa/bbb/gi"…

Perl 为了选择一个合适的脚本语言学习,今天查了不少有关Perl,Python,Ruby,Javascript的东西,可是发现各大阵营的人都在吹捧自己喜欢的语言,不过最没有争议的应该是Javascript现阶段还不适合用来做独立开发,它的天下还是在web应用上.?我?主要是想做数据挖掘算法的研究,应该会处理大量的文本.提到文本处理,相信大部分人都会说应该用Perl.的确,Perl的文本处理很强大,但是它的语法?给人的感觉太乱了,我之前把Perl的基本语法学完了,也用它做了一些简单的文本处理工作…

最近我都在一些论坛和交流社区学习,发现很多人对perl有很大的偏见. 以我学习那么久的Perl来说吧,也算是有一些小经验了,所以我总结了大家对perl的偏见的原因,无非就是是下面两个的两个原因: 1.Perl相当的灵活自由,而且存在很多符号,可能会导致写出一些很乱的代码,造成可读性很差. 2.不同的程序员写出来的代码风格差别很大,造成后期维护困难. 大部分的人都是因为第一条原因,我在学Perl之前,也写过python,在那之前我也受到别人的影响,对Perl这门语言抱有一定的偏见, 觉得这是一门已…

内置的列表函数有: grep, join, map, qw//, reverse, sort, unpack join:将多个元素使用给定字符串联起来join grep:从列表中筛选符合条件的元素执行对应的代码块grep map:对列表中的元素执行给定操作,后文详细示例map reverse:反转列表.标量字符串.hash,后文详细示例reverse sort:按照给定规则进行排序sort qw//:生成一个列表 unpack:暂略 列表相关的内置函数并不多,有些东西实现起来需要自己写逻辑.不过…