perl
文章平均质量分 81
zk1878
这个作者很懒,什么都没留下…
展开
-
perl xml json
use XML::XML2JSON; my $XML = '<test><element foo="bar"/></test>'; my $XML2JSON = XML::XML2JSON->new(); my $JSON = $XML2JSON->convert($XML...原创 2012-09-14 19:52:10 · 127 阅读 · 0 评论 -
perl 操作mysql
use DBI;@driver_names = DBI->available_drivers;#%drivers = DBI->installed_drivers;print "@driver_names\n";# print "%drivers";$username = "root";$password = "123";...2012-04-27 07:57:35 · 72 阅读 · 0 评论 -
perl 文件目录的创建删除拷贝
以下三个是核心包提供的1 unlink @files删除指定的文件集合参数:文件集合返回:删除的文件数 2 rmdir FILENAME删除指定的目录参数:目录名返回:成功时为true,失败时为false,错误信息存储于 $_中注:该函数只能删除空目录,即该目录内没有文件和子目录 3、mkdir FILENAME,MASK创建目录参数:...2012-01-11 18:03:46 · 345 阅读 · 0 评论 -
perl正则表达式中该注意的一个问题
请看以下例子代码1 $a='abc123EEE11';while($a=~/\d+/g){ print $&,"\n";} 将输出 12311 代码2 $a='abc123EEE11';while($a=~/\d+/){ print $&,"\n";} 将无限输出123,该程序将无限循环 代码3 $...2011-12-29 00:06:10 · 101 阅读 · 0 评论 -
perl 目录遍历
使用perl的 File::Find模块,目录遍历将会很简单,且定制性灵活性非常高,以下是个例子use File::Find;find( \&wanted, 'D:\tmp\workspace_eclipse_j2ee\my_project' , 'c:/tmp');sub wanted { -d $_ && print "$File::Find::name...2011-12-16 10:27:58 · 163 阅读 · 0 评论 -
perl 面向对象编程
一、模块简介 模块(module)就是Perl包(pachage)。Perl中的对象基于对包中数据项的引用。 详见http://www.metronet.com的perlmod和perlobj。 在用其它语言进行面向对象编程时,先声明一个类然后创建该类的对象(实例),特定类所有对象的行为方式是相同的,由类方法确定,可以通过定义新类或从现存类继承来创建类。已熟悉面向对象编程的人可以在此遇到许多熟悉的...原创 2011-04-09 10:12:22 · 92 阅读 · 0 评论 -
perl 内建变量
Perl -- 内建变量www.firnow.com 时间 : 2008-06-02 作者:佚名 编辑:本站 点击: 52 [ 评论 ]-- $- 当前页可打印的行数,属于Perl格式系统的一部分 $! 根据上下文内容返回错误号或者错误串 $” 列表分隔符 $# 打印数字时默认的数字输出格式 $$ Perl解释器的进程ID $% 当前输出通道的当前页号 $&amp;...原创 2011-04-09 09:54:09 · 89 阅读 · 0 评论 -
Perl网络编程的10个模块
原文http://hi.baidu.com/jx89/blog/item/d895d3742fe76417b151b97a.html你可能已经知道,Perl综合典藏网(Comprehensive Perl Archive Network,CPAN)上有很多现成的Perl模块,能够让开发人员高效地完成常见任务。CPAN在网络编程上提供的资源尤其如此,它有数千个模块,从一般的(服务器守护程序)...原创 2011-04-09 00:36:20 · 112 阅读 · 0 评论 -
perl发送http请求
原文:http://hi.baidu.com/jx89/blog/item/7e21cc035b90da8be950cde8.html网上见过很多这样的例子,就是教程很少。#!/usr/bin/perluse LWP::UserAgent;my $ua = LWP::UserAgent->new;$ua->agent(" Mozilla/4.0 (compatible; MSI...原创 2011-04-09 00:31:54 · 199 阅读 · 0 评论 -
editplus中配置perl
1. 点击Editplus的“工具/配置用户工具”菜单,在弹出的窗口中的“ 组和工具项目” 下拉列表中选择一个组,点“ 组名称” 按钮,为该组起一个标志性名称。 2. 点击“添加工具/应用程序”按钮,将“菜单文本”设置为“ 编译”,点击“命令”栏右边的按钮,找到“perl.exe”文件的存放路径,并打开它。点击“参数”栏右边的向下箭头,选择“文件名”。点击“初始目录”栏...原创 2011-04-08 09:58:13 · 188 阅读 · 0 评论 -
Perl5的包和模块
第十四章 Perl5的包和模块by flamephoenix 一、require函数 1、require函数和子程序库 2、用require指定Perl版本二、包 1、包的定义 2、在包间切换 3、main包 4、包的引用 5、指定无当前包 6、包和子程序 7、用包定义私有数据 8、包和系统变量 9、访问符号表三、模块 1、创建模块 2、导入模块 3、预定义...原创 2011-04-07 22:05:05 · 74 阅读 · 0 评论 -
第十三章 Perl的面向对象编程
本章介绍如何使用Perl的面向对象编程(OOP)特性及如何构建对象,还包括继承、方法重载和数据封装等内容。一、模块简介 模块(module)就是Perl包(pachage)。Perl中的对象基于对包中数据项的引用。(引用见第x章引用)。详见http://www.metronet.com/的perlmod和perlobj。 在用其它语言进行面向对象编程时,先声明一个类...原创 2011-04-07 22:03:09 · 74 阅读 · 0 评论 -
perl utf8 encoding decoding HTML::Entities Perl中字符串编码的处理
转自:http://hi.baidu.com/youzhch/blog/item/991ad4357baeb00491ef3965.html#!/usr/bin/perl -wuse CGI;use Encode; use HTML::Entities;use utf8;$query = new CGI; print $query->header( -charset=...原创 2011-04-07 18:06:16 · 256 阅读 · 0 评论 -
perl字符串函数
原文:http://developer.51cto.com/art/201007/211626.htm本文和大家重点讨论一下Perl字符串处理函数的用法,每种函数都有各自的特点和作用,下面请看本文详细介绍,相信通过本文的学习你对Perl字符串处理函数一定会有所了解。Perl字符串处理函数Perl字符串处理函数index调用语法position=index(string,substr...原创 2011-04-05 23:45:51 · 218 阅读 · 0 评论 -
perl 剪贴板操作
以下代码设置剪贴板内容为 hello world,然后读取剪贴板内容 use Win32::Clipboard;$clip = Win32::Clipboard->new();$clip->Set("hello world");$val = $clip->Get();print $val; 如果你用鼠标键盘操作选中一个文件 ctrl-v...2012-02-09 14:05:18 · 451 阅读 · 0 评论 -
在Perl调用C/C++代码/动态链接库
原文http://manew.org/?p=62perl想到的,几乎都可以实现(当然, 其它语言也可以实现, 只是方便程序不同而已).还有几乎无所不包的Cpan在C中, 当然可以调用C代码, 包括内嵌的C语句, 或C/C++写的动态链接库.调用方面用的多的有两个: XS和Inline::C ,这里使用了inline::c嵌入动态链接库:例如我有一个运态链接库名字为libmy...原创 2012-02-10 17:46:31 · 922 阅读 · 0 评论 -
perl源文件编码类型导致乱码问题
$str = '中国';chdir 'E:\job';mkdir $str;print $str; 上面一段程序,保存为a.pl,文件编码为unicode或是utf-8,运行后,则创建一个目录,该目录为乱码, 打印出来为乱码。解决办法: 将文件编码设置为ANSI即可。注:不同的编辑器,默认编码是不同的,写代码时这点需注意...2012-09-11 09:28:48 · 186 阅读 · 0 评论 -
perl 解析html, 自己写的几个比较常用方法
perl解析html, 比较常用的模块是 HTML::TreeBuilder,该模块将html字符转化dom树,方便操作一个dom元素对应 一个HTML::Element对象,dom的属性方法都定义在该类中,以下是代码 # 一个dom元素,比较重要的属性,方法# attr: $e->attr('id') 返回标签的某个属性值# text...2012-09-04 20:56:49 · 738 阅读 · 0 评论 -
perl多进程示例
以下例子,在主进程生成3个子进程,然后再收割每个子进程,防止子进程成为僵尸进程 for(1..3){ $pid = fork; if($pid == 0){//子进程 print $$,"\n"; sleep (3+int(rand(10))); exit 0; }}print "waitting --------\n";print "p...2012-08-17 15:33:02 · 157 阅读 · 0 评论 -
一段实用的perl脚本
下面的脚本实现了在命令行直接执行perl语句或是执行操作系统命令的功能。虽然perl的命令行选项 -e可以,但不好用。操作说明:在终端执行 perl shell.pl(保存为shell.pl)有2种模式1 perl解释器模式 在控制台输入非os:开头的字符串,则该行字符串被当作perl脚本执行,如 $i=3; $j=5; print $i...2012-08-15 20:53:52 · 266 阅读 · 0 评论 -
perl发送http请求,easy之极
perl 发送http 非常之简单,发送get请求 只一行代码use LWP::Simple;$content = get('http://localhost:8080/webtest/a.jsp'); 发送post,或者要发送请求头,cookie,则为以下代码,也不多use LWP::UserAgent; my $ua = LWP::UserAgent-...2012-08-09 23:21:06 · 354 阅读 · 0 评论 -
perl http模块总结
perl发送http请求主要有 LWP,UserAgent, HTTP这些模块及其子模块组成 1.发送简单的http请求只需要使用LWP::Simple模块即可use LWP::Simple;$content = get(url); #返回得到的内容getstore(url, filename);#将目标url的内容保存到filename中head($ur...2013-04-04 23:51:36 · 423 阅读 · 0 评论 -
Perl 中的线程
原文:http://www.ibm.com/developerworks/cn/linux/l-cn-perl-thread/index.html?ca=drs-cn-0302线程概述线程是一个单一的执行流程,它是所有程序执行过程中最小的控制单位,即能被 CPU 所调度的最小任务单元。线程与进程之间既有联系,又完全不同。简单地说,一个线程必然属于某一个进程,而一个进程包含至少一...原创 2012-03-31 22:19:55 · 97 阅读 · 0 评论 -
perl json
http://search.cpan.org/~makamaka/JSON-2.53/lib/JSON.pm#decode_jsonuse JSON;$json_text = '{"x":1, "y":["a", "b"]}';$perl_scalar = from_json( $json_text);print $perl_scalar->{y}->[0];$...2013-04-03 20:51:26 · 144 阅读 · 0 评论 -
perl smtp 发送邮件
原文:http://blog.chinaunix.net/uid-21505614-id-289463.htmluse Net::SMTP;my $mailhost = "smtp.126.com"; # the smtp hostmy $mailfrom = 'my@126.com'; # your email addressmy @mailto = ('my@163....原创 2012-03-20 23:44:41 · 704 阅读 · 0 评论 -
perl开启并关闭w32进程
perl是个很强大的脚本语言,cpan包罗万象的库使其几乎无所不能,就比如进程控制这一块,java难以施展手脚。下面是一个windows下进程控制的的代码,启动一个进程并关闭它。 1、启动记事本,10秒后关闭它 $pid=open P,"| notepad" or die 'error';print $pid;sleep 10;kill STOP,$...2012-03-05 16:31:06 · 225 阅读 · 0 评论 -
perl查看已经安装的模块
use ExtUtils::Installed;my $inst = ExtUtils::Installed->new();my @modules = $inst->modules();foreach (@modules){ my $ver = $inst->version($_) || "???"; printf( "%-12s ...原创 2012-02-16 17:53:14 · 216 阅读 · 0 评论 -
perl对windows的进程的一些常用操作
1、获取所有正在运行的进程,用到了cpan的Win32::Process::List模块 use Win32::Process::List; my $P = Win32::Process::List->new();# constructor my %list = $P->GetProcesses(); # returns the hashes w...2012-02-16 17:52:35 · 263 阅读 · 0 评论 -
perl发送http请求
下面是一段perl发送http请求的代码,设置了请求头,表单参数use LWP::UserAgent;;use HTTP::Request;use HTTP::Response;use HTTP::Request::Common;$agent=new LWP::UserAgent;$request=POST('http://localhost:8080/wm/ab...2012-02-16 17:51:38 · 220 阅读 · 0 评论 -
perl下载图片
use LWP::Simple;my $url='http://bbs.chinaunix.net/images/default/logo.gif';my $content = get($url);die "Couldn't get it!" unless defined $content;my $logo = 'logo.gif';open FH, ">$...原创 2011-11-02 12:21:23 · 117 阅读 · 0 评论 -
perl端口扫描
端口扫描软件一般是发送一个连接请求到目标主机和端口,检测返回的连接状态从而判断目标主机端口是否打开以下是perl的一个例子use IO::Socket::INET;my $host= '127.0.0.1';my $port= '8080';my $proto='tcp';$socket = new IO::Socket::INET( PeerHost =...2011-11-02 10:59:36 · 155 阅读 · 0 评论 -
perl格式化输出一个简单实用的例子
$~ = "table_header";write;%stuinfo=(1=>'zhang san',2=>'li si',3=>'wang wu',4=>'zhao liu');foreach $key (keys %stuinfo){ $stuid=$key; $stuname=$stuinfo{$ke...2011-11-01 09:18:34 · 146 阅读 · 0 评论 -
perl常用操作
1、文件操作1-1、递归创建目录格式:use File::Pathmkpath(dirname)例子:mkpath('d1/d2/d3');注:dirname中的文件分隔符须是'/',而不能是 '\' 1-2、递归复制目录(包含所有目录下的所有文件)格式:use File::Copy::Recursive qw(fcopy rcopy dircopy f...2011-09-19 22:38:01 · 182 阅读 · 0 评论 -
perl的grep,map用法及区别
1、map 对数组的每个元素计算语句值,最后将得到的最终值组成一个数组返回,$_为当前元素值格式: 1-1、 @arr=map 单条语句,@number; 1-2、 @arr=map {多条语句} @number;例子: @arr=map $_+1,1..3; // @arr=(2,3,4) @arr=map {$_=$_...2011-09-03 15:01:51 · 139 阅读 · 0 评论 -
一段perl代码,包含网页抓取与字符串编码
use LWP::Simple;use utf8;use Encode;open F,'>d:/bc.html'; $content = get("http://www.163.com");#Encode::_utf8_on($content);$content=encode('gb2312',$content);die "Couldn't get it!" unless def...2011-09-01 23:52:36 · 91 阅读 · 0 评论 -
[perl]Wide character in print报错
原文http://hi.baidu.com/mxp446533129/blog/item/5d9f3812b3e9c414213f2e3b.html用perl写文本处理程序,或者写服务器端脚本的时候,常常会遇到“Wide character in print” 的警告或者错误。这是因为在程序中处理中文等宽字符时,perl不能识别要处理的内容。首先要知道perl只能处理两种编码:asci...原创 2011-09-01 23:10:47 · 179 阅读 · 0 评论 -
用Perl DBI连接MySQL数据库
原文:http://www.dedecms.com/knowledge/program/cgi-perl/2009/0929/60.htmlPerl中一个最酷的模块就是Perl数据库接口(Perl Database Interface,简称DBI)。通过提供一系列在内部上能够转化成原始调用函数的功能,DBI模块为很多不同的数据库提供了一个统一的接口。由此,使用Perl就可以很容易地利用...原创 2011-09-01 22:26:06 · 119 阅读 · 0 评论 -
使用perl脚本抓取网页总结
原文http://boyun.sh.cn/blog/?p=1042使用perl实现网页抓取,对网络蜘蛛的初步尝试。环境 windows xp,IIS,perl 5.88,CMD使用到的模块use LWP::Simple; 用来得到网页use HTML::HeadParser; 对部分进行解析,得到标题、编码、关键词等use HTML::FormatText::WithLinks...原创 2011-09-01 21:48:10 · 163 阅读 · 0 评论 -
perl集合运算之交集,并集,差集
perl中,实现两个集合的运算很简单,只需几行代码即可 @a=('a'..'c',1..3);@b=('A'..'C',1..3);@union=();#并集@diff=(); #差集 @isect=();#交集foreach $e(@a,@b){ $union{$e}++&&$isect{$e}++;}@union=keys %unio...2011-04-27 14:52:14 · 1168 阅读 · 0 评论 -
Perl模块之Tie::File
原文:http://hi.baidu.com/mylongwalk/blog/item/004df0220cc2cc4dad34dea0.htmlperl的Tie::File模块真是与乎寻常的强大Tie::File: Tie::File - Access the lines of a disk file via a Perl array: 将一个file和a...原创 2011-04-27 11:08:14 · 1061 阅读 · 0 评论