perl
qq312788172
这个作者很懒,什么都没留下…
展开
-
perl 处理文件路径的一些模块
原帖地址:http://yesho.blogbus.com/c1615293/index_3.htmlperl有句格言:There is more than one way to do it。意思就是任何问题用perl都有好几种解决方法。以前处理文件路径的时候都是自己写正则表达式,而用perl的模块来解决则更加迅速、准确。1). File::Basename有3个方法:fi...原创 2010-07-14 16:17:43 · 431 阅读 · 0 评论 -
perl ssh scp 操作远程机器进行验证
[code="perl"]#!/usr/bin/perluse strict;use FindBin qw($Bin);my $websiteName = $ARGV[0];if (!$websiteName){ die "you need to input the website name as a parameter,run it like this:valid...原创 2010-12-24 18:13:26 · 281 阅读 · 0 评论 -
Xpath基本用法
my $liStr = $tree->findnodes_as_string('//ul[@id="brand"]/li/a[@class=~"bd_*?"]'); 可以利用正则表达式来过滤。############################################################## 编程中经常会用到XML,.Net FrameWo...原创 2011-01-04 17:13:46 · 105 阅读 · 0 评论 -
优化 Perl , 榨取代码的最大性能
转载自:http://www.ibm.com/developerworks/cn/linux/l-optperl.htmlPerl 是一门非常灵活的语言,然而,其易用特性会使程序员滋生出一种懒散的编程习惯。我们应该对这些坏习惯负责,同时可以采取一些快捷步骤来提高 Perl 应用程序的性能。在本文中,我们将介绍优化的一些关键内容,了解哪些解决方案有效、哪些无效,以及如何继续构建并扩展设计...原创 2010-09-25 11:11:25 · 673 阅读 · 0 评论 -
【精】LWP与WEB的基本使用
LWP 与 WEB 的基本使用: http://wiki.perlchina.org/LWP%E4%B8%8EWEB%E7%9A%84%E5%9F%BA%E6%9C%AC%E4%BD%BF%E7%94%A8#.E4.BD.BF.E7.94.A8_cookies 翻 译:qiang 审 校:klaus 出 处:中国 Perl 协会 原 名:Web Basics with LWP...原创 2010-09-25 16:44:04 · 294 阅读 · 0 评论 -
perl高级排序
高级排序 == Perl 的高级排序手段语法:my @sorted_array = sort sub_sort_method @original_array;这里的 sub_sort_method 就是我们制定的排序策略,一般是一个sub routine 的名字,或者其代码。示例:m...原创 2010-10-08 14:55:43 · 420 阅读 · 0 评论 -
用LWP简单编写WEB访问的应用 ----需要登陆的网站,保留服务器返回的cookie
LWP 是 Library for WWW access in Perl 的缩写,用途说得很清楚,就是一个访问Web服务器的Perl包。利用LWP这个包,我们可以很方便的在我们的perl脚本里面访问外部的Web服务器上面的资源。为什么要用LWP?现在的网站应用越做越复杂,要想简单的写一个Socket telnet 去用 GET 指令获取资源简直是不可能的,特别是一些需要用口令登陆的...原创 2010-10-25 12:38:37 · 240 阅读 · 0 评论 -
WWW::Mechanize使用手册
Mechanize使用手册(翻译)。http://blog.codingmylife.com/?p=51 1,715 views, Ruby, by Allen Dang. 开始使用 [WWW::Mechanize](http://mechanize.rubyforge.org/mechanize/classes/WWW/Mechanize.html...原创 2010-10-26 09:57:39 · 380 阅读 · 0 评论 -
perl模块推介
模块推介取自 PerlChina.org - wiki跳转到: 导航, 搜索这里列有常用模块介绍,几句话即可。如果希望详细介绍,欢迎另起文章撰文。目录[隐藏]1 WWW2 模板3 网络编程框架4 系统5 数据库和数据存储6 Email...原创 2010-10-26 10:07:32 · 160 阅读 · 0 评论 -
Mechanize 模块 可以提交form,实现登录功能
Mechanize 模块 可以提交form,实现登录功能 :[code="perl"]#!/usr/bin/perlBEGIN { # Set our common library path. unshift @INC, './lib';}require HTTP::Request;require HTTP::Response;require HTTP:...原创 2010-10-26 10:36:04 · 196 阅读 · 0 评论 -
Perl单元测试
1 测试内容和常用模块CPAN上有很多成熟的模块可以拿来帮助我们对perl脚本做单元测试,本文整理了它们的用法。· perl模块推荐 2代码覆盖度测试Devel::Cover是一个代码覆盖度测试的很棒的模块,它能自动分析并且生成一份详细的报告,而且可以生成html版本的,方便阅读 2.1模块安装1、root帐号下,用CPAN方式安装,...原创 2011-02-15 14:47:16 · 302 阅读 · 0 评论 -
更具if modified since更新图片,并且删除陈旧的图片
更具if modified since更新图片,并且删除陈旧的图片:[code="java"]# ---------------------------------------------# This method will get the document identified by $url and store it in file called $filename.#...原创 2010-12-03 10:13:54 · 134 阅读 · 0 评论 -
How to deal with 'https'
Windowshttp://johnbokma.com/perl/https.htmlLinuxhttp://search.cpan.org/~nanis/Crypt-SSLeay-0.58/SSLeay.pm原创 2010-12-08 15:00:42 · 80 阅读 · 0 评论 -
日文网站搜索时,关键字在url地址栏里有一个编码的过程,perl怎么获得这个编码后的结果?...
日文网站搜索时,关键字在url地址栏里有一个编码的过程,perl怎么获得这个编码后的结果?比如说在 http://voi.0101.co.jp/voi/index.jsp 这个网站搜索关键字 サマー ,得到的url是:http://search-voi.0101.co.jp/voi/freeword/?store=&q=%83T%83%7D%81%5B ,我现在想知道怎么用perl实现...原创 2010-06-25 13:11:12 · 191 阅读 · 0 评论 -
perl尖括号运算符(<>)
1)如果尖括号中间是文件句柄,尖括号运算符允许你读取文件句柄,比如。 2) 如果尖括号中间是搜索模式,尖括号运算符能返回与该模式匹配的文件列表,这称为一个glob,比如< *.bat>。 3)一组尖括号运算符如果中间没有任何东西,那么它可以读取命令行上所有文件的内容;如果没有给出文件名,则可以读取标准输出。请看下面这个小型P e r l程序:while(){...原创 2010-06-08 09:15:03 · 538 阅读 · 0 评论 -
perl 模拟post提交
对于post分页的网站,用正常的在url后面加参数的方法已经不奏效(大多数情况下是可以的)。就需要用到LWP::UserAgent模块去post提交。use LWP::UserAgent;my $browser = LWP::UserAgent->new;my $SUSUI_URL = "http://www.pilotage.jp/products/list.php?cate...原创 2010-08-26 18:05:03 · 198 阅读 · 0 评论 -
perl中do的用法,do sys.cfg便可以将配置文件的信息读进来
perldoc讲到do在perl中并不表示循环,其后如果跟EXPR,则将EXPR作为一个perl文件执行。其中提到下面一句话: You might like to use "do" to read in a program configuration file. 我们用HTK或Sphinx搭系统的时候,大多要读取配置文件,有了do语句,配置文件sys.cfg可以按照perl的...原创 2010-07-15 00:03:25 · 275 阅读 · 0 评论 -
正则中\Q和\E的用法
\l 下个字符小写\L 接着的字符均小写直到\E\u 下个字符大写\U 接着的字符均大写直到\E\Q 在non-word 字符前加上\,直到\E\E 结束\L,\E和\Q[b] m/\Q$name\E/:表示元字符常量化, 即在$sizename里的元字符*.+?等前加上\。$tempsize =~ m/^\Q$sizename\E$/ [/b]...原创 2010-07-21 19:38:44 · 2353 阅读 · 0 评论 -
tr/// 和 s///的区别
转换操作符tr///的作用与替换运算符s///有些类似,不过它并[b]不使用正则表达式[/b],而且它的运行方式完全不同。转换操作符的句法如下所示:tr/searchment/repalcement/是把searchment的第一个字符换成replacement的第一个字符,searchment的第二个字符换成replacement的第二个字符,类推 ~~~~~~~当serchmentrepl...原创 2010-07-25 23:12:22 · 518 阅读 · 0 评论 -
perl的pop跟push操作数组的最右边,shift跟unshift操作数组的最左边
perl的pop跟push操作数组的最右边,shift跟unshift操作数组的最左边学习记录一下[code="perl"] 1. #!/usr/bin/perl -w 2. use strict; 3. print '@a @b @c @d 的值都为1 2 3',"\n"; 4. my @a = (1..3); 5. pop(@a); ...原创 2010-08-13 10:25:39 · 154 阅读 · 0 评论 -
perl特殊符号
1.$!记录打开文件句柄时的出错信息2.$@记录eval捕获的错误3.$#记录数组的下标最大值。 5.$_:perl的默认值变量 6.@_:传给子例程的参数列表原创 2010-08-13 13:59:49 · 147 阅读 · 0 评论 -
perl开发环境可以单步调试:eclispe+epic+PadWalker模块
eclispe+epic+PadWalker模块:1。假设已经安装好eclispe。然后安装epic,方法如下:windows->help->Install New Softwares...->然后在"type or select a site"处追加 http://e-p-i-c.sf.net/updates/testing,最后选中EPIC安装之.2. 为了Debug时(单步执行时...原创 2010-08-15 19:24:53 · 163 阅读 · 0 评论 -
perl数据结构
1,{}:hash的引用, $product = {'Retailer' => $retailer, 'Name' => $name};取产品的名字:$product->{'Name'} or %{$product}2,[]:数组的引用3,():hash[code="perl"]$retailer =...原创 2010-08-15 23:12:27 · 134 阅读 · 0 评论 -
perl 读写文件
用Open() 函数打开文件打开文件的常用方法是:open(FH, "< $filename")[b]or die "Couldn't open $filename for reading: $!";[/b]open() 函数通常带有两个参数,第一个为文件句柄,用于指向打开的文件,第二个参数是文件名及模式(文件的打开模式)的混合体,如果文件被成功打开,open(...原创 2010-08-15 23:52:59 · 277 阅读 · 0 评论 -
Perl Unicode全攻略
耐心看完本文,相信你今后在unicode处理上不会再有什么问题。本文内容适用于perl 5.8及其以上版本。perl internal form在Perl看来, 字符串只有两种形式。 一种是octets, 即8位序列, 也就是我们通常说的字节数组. 另一种utf8编码的字符串, perl管它叫string。 也就是说: Perl只认识两种编码: Ascii(octets)和...原创 2010-08-19 12:47:44 · 70 阅读 · 0 评论 -
Perl 的 utf8 与编码处理
本文基于笔者查阅的 perldoc 和试验结果。鉴于经常有人被编码问题困扰,现笔者把所了解的关于 Perl utf8 与编码处理的资料总结一下。由于所知有限,可能会有讲错的地方,如有需要,可自行查阅:perldoc Encodeperldoc PerlIOperldoc utf8perldoc encoding下面用到这几个函数,能提供有用的帮助:Encode::is...原创 2010-08-19 12:48:42 · 527 阅读 · 0 评论 -
perl特定网页内容
参考资料:http://home.donews.com/donews/article/2/22790.html 提取网页http://huanyue.iteye.com/blog/373148 正则http://boyun.sh.cn/blog/?p=1042 抓取脚本总结 乱码http://hi.baidu.com/fanfuns/blog/item/ba650099ad...2010-06-02 18:10:03 · 99 阅读 · 0 评论 -
perl 笔记
1.请注意,在一个foreach循环中,[b]迭代器并不只是设置为列表中的每个元素的值,它实际上是对列表的元素的引用[/b]。 [code="java"] foreach(@words){ $_=uc($_); }[/code]or[code="java"]foreach $user(@userList){ $user="$user...原创 2010-06-04 13:21:17 · 77 阅读 · 0 评论 -
保存cookie到本地,发送请求时带着cookie。
[code="java"]use Data::Dumper;use LWP::UserAgent;use URI;use HTTP::Date;use Encode;use HTTP::Cookies;my $cookie_jar = HTTP::Cookies->new(file => "d:cookies.lwp",autosave => 1);...原创 2010-12-10 17:44:30 · 849 阅读 · 0 评论