perl
hendyyou
这个作者很懒,什么都没留下…
展开
-
perl的内置特殊变量三
包含正在执行的脚本的文件名$ARGV 从默认的文件句柄中读取时的当前文件名%ENV 环境变量列表%INC 通过do或require包含的文件列表%SIG 信号列表及其处理方式@_ 传给子程序的参数列表@ARGV 传给脚本的命令行参数列表@INC 在导入模块时需要搜索的目录列表$-[0]和$+[0] 代表当前匹配的正则表达式在被匹配的字符串中的起始和终止的位置原创 2009-09-27 11:23:00 · 418 阅读 · 0 评论 -
perl比较文件数据是否相同(Algorithm::Diff模块)
当你的领导笑嘻嘻的对你说到:亲爱的,我这有2个文件,里面有许多数据是相同的,我想把相同的数据取出来的,光荣的任务就交给你了啊,嘻嘻。 然后就离开了你的战场(办公桌)。毕竟这只是你一个人的战争啊。来吧,我们解决这个小问题吧,让我们用比较Perl的感觉来吧 ,不是 呸儿(谐音)啊。 需要的模块:Algorithm::Diff可能会在装一些其他需要支持的模块 #!/usr/bi原创 2009-11-08 22:16:00 · 2053 阅读 · 0 评论 -
关于perl处理excle(中文编码字符,Spreadsheet::Read)
上次写了处理excle的一个很简单的程序,但是是那个只适合对方英文和数字的很快,当碰到了中文后就会变的力不从心了了,所以我将程序进行了改动,使得可以识别中文.当我们在处理很多xls表的时候,特别是数据汇总,你要将所有的数据全部汇总在一起并且导成txt的格式,利于做其他的事情,这个时候就需要下列的程序了: 需要安装的模块: IO::stringy ; IO::scalar ; S原创 2009-11-08 22:17:00 · 2294 阅读 · 0 评论 -
perl将oracle数据库的数据导出成txt的简单方式
当我们面对 数百万数千万行列的数据库表的时候,而你又希望能将数据尽快的导出成txt给你的老板,有软件或者其他东西导出来就显得比较郁闷了,因为老板要吃午饭了,他可不希望在下班的时候还听到你在说,数据正在导出中。 于是我们利用了,速度转入正题了啊。需要的模块:DBI; #!/usr/bin/perluse DBI;$dbname="数据库服务名称";$user="用户";转载 2009-11-08 22:19:00 · 1421 阅读 · 0 评论 -
perl批处理xml文件
--这里所有的perl技术问题都是我平常处理数据的时候要用到的,可能不是很强的程序,但是希望能和热爱perl的同志,一起分享...有很多时候,我们会遇到相同类型xml文件,这个时候需要用到批处理,比如要将xml文件里面的歌曲名和歌手名,还有其他一些信息取出来。下面是一个程序例子:(可以先用一个软件ABC Amber XML Converter来看看xml文件的层次问题。看到的内容如下: #转载 2009-11-08 22:21:00 · 1079 阅读 · 0 评论 -
perl自动ftp的方法(Linux版本,Net::FTP)
--这里所有的perl技术问题都是我平常处理数据的时候要用到的,可能不是很强的程序,但是希望能和热爱perl的同志,一起分享... 在很多情况下,我们需要从远处服务器上下载当天或者昨天生成的日志文件,来查看一些我们需要的东西或者备份。 如果采用了ftp,那么我们应该建立自动化的ftp方式,来方便我们的工作,下面我们将使用perl语言编写的,当然也可以用shell。 利用了per转载 2009-11-08 22:22:00 · 780 阅读 · 0 评论 -
perl读取excel文件
--这里所有的perl技术问题都是我平常处理数据的时候要用到的,可能不是很强的程序,但是希望能和热爱perl的同志,一起分享...对于xls,csv的文件处理,可以用到的模块有太多,今天学习和总结了下,下面就介绍几种比较常用的: 一.关于 Spreadsheet::Read 模块的用法 ,可以读取xls,csv和sxc等格式的文件,方法如下#!/usr/bin/perl原创 2009-11-08 22:13:00 · 2097 阅读 · 0 评论 -
转:PERL 语言中的q,qw,qr,qx,qq......符号用法总结
PERL 语言中的q,qw,qr,qx,qq......符号用法总结在perl语言中,有两个特殊而常用的符号qq qw,分别解释如下:qq{foobar}的意思为意思为双引号字符串,可内插变量相当于 "foobar"qw{foo bar}的意思为用空格分解字符串,得到列表,相当于如下语句split( ,foo bar) 得到的结果是foo,bar字符串比较等于用 eqq运算符对原创 2009-11-08 22:29:00 · 1419 阅读 · 0 评论 -
Perl 的排序问题
Perl自带有排序函数sort,sort的用法主要有两种:1. 直接使用@articles = sort @files;上述例子中,sort将依据标准的字符串排序法则对数组files里包含的元素进行排序。也就是说数组里定义的数字或者字母将被转换成ASCII码后进行排序。2.自定义排序法则@articles = sort {sub rule} @files;上述例子中的"原创 2009-11-08 22:35:00 · 778 阅读 · 0 评论 -
perl 提取介于某个区间的几行文字(转)
提取介于某个区间的几行文字flw原话:这是面向行处理的一种轻量级解决方法。比那些对整个文件进行模式匹配的方法不知优雅了要多少倍。$start 表示开始标记的模式,$end 表示结束标记的模式,if ( (/$start/ .. /$end/) and !/$end/ ){表示需要开始和结束之间的,但不需要结束的那一行。#!/usr/bin/perluse warnings;u原创 2009-11-08 22:36:00 · 2316 阅读 · 1 评论 -
perl 例子求合并一个数组的方法
@a=([a,2,4],[b,3,2],[c,4,4],[d,t,3],[a,4,5],[c,3,5]);判断第一个字段 如果出现相同的 就吧后面的两个字段加一起想要的结果是这样的a,24, 45b ,3, 2c ,43, 45d ,t, 3[ 本帖最后由 luesfeng 于 2009-10-3 13:54 编辑 ]转载 2009-11-08 22:38:00 · 2899 阅读 · 0 评论 -
各种平台下Perl模块的安装方法完全版
Perl到了第五版增加了模块的概念,用来提供面向对象编程的能力。这是Perl语言发展史上的一个里程碑。此后,广大自由软件爱好者开发了大量功能强大、构思精巧的Perl模块,极大地扩展了Perl语言的功能。CPAN(Comprehensive Perl Archive Network)是internet上Perl模块最大的集散地,包含了现今公布的几乎所有的perl模块。 几个主要的CPAN转载 2009-11-06 23:34:00 · 582 阅读 · 0 评论 -
perl实现收集文本并导入excel
perl实现收集文本并导入excel文本文件格式如:"Begin--------------------------------------------""姓名:xxx" Physical Address. . . . . . . . . : 00-00-7D-CB-1C-39 IP Address. . . . . . . . . . . . : 172转载 2009-11-07 08:57:00 · 746 阅读 · 0 评论 -
Perl语言的文字处理模式
Perl语言的文字处理模式(Regular Expression) 如果在Unix中曾经使用过sde、awk、grep这些指令的话,相信对于Perl语言中的文字处理模式(Regular Expression) 应该不会感到陌生才对。在Perl语言中因为有这个功能,所以对于字符串的处理能力是非常强有力的。Regular Expression可视为用来处理字符串的一种模式(patt原创 2009-09-20 13:05:00 · 349 阅读 · 0 评论 -
perl实例分析教程
Normal 0 7.8 磅 0 2 false false false MicrosoftInternetExplorer4 <!-- /* Sty原创 2009-09-26 15:10:00 · 1481 阅读 · 0 评论 -
perl的内置特殊变量一
$- 当前页可打印的行数,属于Perl格式系统的一部分$! 根据上下文内容返回错误号或者错误串$” 列表分隔符$# 打印数字时默认的数字输出格式$$ Perl解释器的进程ID$% 当前输出通道的当前页号$& 与上个格式匹配的字符串$( 当前进程的组ID$) 当前进程的有效组ID$* 设置1表示处理多行格式.现在多以/s和/m修饰符取代之.$, 当前输出字段分原创 2009-09-27 11:21:00 · 310 阅读 · 0 评论 -
perl二维数组的遍历
$line = [solid , black , [1,2,3,10,101] , [4,5,6]];$len = scalar(@$line);for($i = 0; $i $seclen=$line->[$i]; $lenj=scalar(@$seclen); if ($seclen=~/^ARRAY/原创 2009-10-12 10:55:00 · 4650 阅读 · 0 评论 -
Perl中的“引用”
五、多维数组 语句@array = list;可以创建数组的引用,中括号可以创建匿名数组的引用。下面语句为用于画图的三维数组的例子: $line = [solid , black , [1,2,3] , [4,5,6]]; 此语句建立了一个含四个元素的三维数组,变量$line指向该数组。前两个元素是标量,存贮线条的类型和颜色,后两个元素是匿名数组的引原创 2009-10-15 21:31:00 · 523 阅读 · 0 评论 -
perl 一些有用的 util
http://www.blogjava.net/Skynet/archive/2009/03/17/260234.html原创 2009-10-16 10:38:00 · 408 阅读 · 0 评论 -
用Perl从oracle导出百万级数据到excel
Perl从oracle导出百万级数据到excel excel 2007 可以存放1048576行、16384列的数据;excel 2003大概是65535行 我从oracle中导出30万行60列的数据到excel中花了约8分钟。 如果你还没有安装perl,按下面步骤 步骤: 1、下载并安装perl v5.8.8,可以使用perl -v查看是否安装成功,转载 2009-10-22 22:03:00 · 896 阅读 · 0 评论 -
perl的expect和xml模块简单使用
常用模块: (1) Net::FTP (2) Net::Telnet (3) LWP::Simple, get() (4) Expect (5) XML::Simple, XMLin() (6) Data::Dumper, Dumper() (7) IO::Socket (8) Date:原创 2009-11-06 23:04:00 · 518 阅读 · 0 评论 -
perl 命令行程序
命令行程序下面的几个 Perl 参数可以让短小的 Perl 程序很容易的在命令行上运行。-e 可以让 Perl 代码在命令行上被编译器直接执行.例如, 我们可以直接在命令行上运行 "Hello World" 程序而不用把它写称 Perl 程序。$ perl -e print "Hello World/n"多个 -e 也可以同时使用, 运行顺序根据它出现的位置.转载 2009-11-06 22:50:00 · 628 阅读 · 0 评论 -
perl利用内存使用sql语句
大家好!最近又有了一些模块用法的心得,那就是利用模块使你的内存变成一个虚拟的数据库模式,使你可以在没有数据库的情况下,将txt文件的数据进行 sql语句处理,感觉很新鲜吧,不过这个不用感到惊讶,Perl一直是很完美的,哈哈,那我们就来看看这个神奇吧!需要安装 模块:SQl::Library;DBI 下面是程序(比较文件1和文件2中的关键字段,比如歌曲比歌曲,歌手比歌手,如果相同转载 2009-11-08 22:20:00 · 966 阅读 · 0 评论