qinglangee的专栏

[url=http://blog.youkuaiyun.com/omohe/archive/2007/10/21/1835746.aspx]Perl中的文件包含[/url] [url=http://bbs.chinaunix.net/viewthread.php?tid=499434]Perl命令行应用介绍[/url] [url=http://dev.firnow.com/course/4_webpr...

1. [url=http://bbs2.chinaunix.net/viewthread.php?tid=981190]bless() [/url] bless有两个参数：对象的引用(第一个)、类的名称(第二个,可以省略,则是当前类)。bless就是把 类型信息 赋予 实例变量. perl的类名可能就是 package名. 2. [url=http://www.hudong.com/...

1. perl根据上下文context决定返回列表还是标量. 如果表达式不是列表,标量值自动转换为一个元素的列表. 语法: 1. @rocks 表示引用整个列表 $rocks[0],$rocks[1]引用列表元素 $rocks[-1]表示列表最后一个元素 2. 列表的 qw 简写 字符串列表("fred","baney","betty")可以简写为qw(fred...

print "$_\n" for $set->as_address_array; 这个方法可以用； 我不知道原来$set 还能作为列表进行由$_遍历啊

[code="java"]#!/usr/bin/perl use warnings; use strict; my @files = glob 'D:\temp\ps\ps*'; my @types = ("oracle","tomcat","resin"); foreach(@files){ open SRC, $_; my $count = 0; ...

[code="java"]#!/usr/bin/perl use warnings; use strict; use LWP::Simple; my $downloadDir="e:\\365doc\\picture"; my $tomcatDir = 'd:\Tomcat6.0\webapps\picture'; my $linkTemp = 'd:\temp\bb.html';...

[code="java"]#!/usr/bin/perl use warnings; use strict; #aa.txt中找出图片链接，写入result.html中，可以用迅雷等批量下载 open SRC, "result.html"; my $count=0; print DEST ""; while(){ if(/(.*)(src=")(.*\.jpg)(.*)/)...

ref:[url=http://blog.chinaunix.net/u/243/showart_68647.html]LWP 与 WEB 的基本使用[/url] 简介 LWP (“Library for WWW in Perl” 的缩写) 是一个由多个模块组成，用来获取网络数据的的模块组。 和很多 Perl 的模块一样。每一个 LWP 模块都自带详细的文档，做为对这个模块的完整介绍。可是面对...

[code="perl"] open INDEX_FILE, "result.txt"; my @names=(); # INDEX_FILE文件中符合正则的字符串写入RESULT_FILE文件中 while(){ if(/(\d{13}\.\w{3})/){ printf RESULT_FILE "$1\n"; push (@names, $...

[code="perl"] #!/usr/bin/perl use warnings; use strict; my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst); #注意$mon+1，$year+1900; ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=loca...

[url=http://learn.tsinghua.edu.cn:8080/2005211356/gtkperl/Install.html]Gtk2-Perl 的安装[/url] [url=http://www.ibm.com/developerworks/cn/linux/l-perlgtk/]Gtk2-perl 编程[/url] 1. ActivePerl 装5.8.x的版本，要不装这些...

1. 查看安装的模块 $>perldoc perllocal 或者 perl -e "use Tk" Tk为模块名 2. 检查是否安装了模块的一种简单方法是在命令提示符下键入 perl -e "use module" 3. [url=http://fanqiang.chinaunix.net/program/perl/2001-04-21/1919...

原文:http://www.cnblogs.com/slaughter/archive/2007/03/15/675791.html http://lynsead.spaces.live.com/Blog/cns!1pN1cYMeTzpoDjzM1P1IqDFg!135.entry perl对中文的处理(encode,decode) 最近在处理中文时遇到乱码的问题，google了一下...