![](https://img-blog.csdnimg.cn/20201014180756927.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
perl
文章平均质量分 80
beyondlpf
这个作者很懒,什么都没留下…
展开
-
perl模块之MIME::Lite发送有附件的邮件
#!/usr/bin/perluse strict;use warnings;use MIME::Lite; #这个用来组织邮件信息内容use Pod::Usage;use Getopt::Long;use MIME::Base64;use MIME::Words qw/:all/;use Authen::SASL;my $options = {转载 2011-10-25 20:01:29 · 2610 阅读 · 0 评论 -
perl 数组的使用
一、列表列表是包含在括号里的一序列的值,可以为任何数值,也可为空,如:(1, 5.3 , "hello" , 2),空列表:()。注:只含有一个数值的列表(如:(43.2) )与该数值本身(即:43.2 )是不同的,但它们可以互相转化或赋值。列表例:(17, $var, "a string")(17, 26 (17, $var1 + $var2)($value, "Th转载 2012-08-31 17:44:17 · 6316 阅读 · 0 评论 -
Perl中chomp和chop的区别
chomp是用来删除换行符. #!/usr/bin/perl $c="abcde"; chomp($c); print "$c\n"; [root@ak]# perl a.pl abcde chop是用来删除最后一个字符. #!/usr/bin/perl $c="abcde"; chop($c); print "$c\n"; [root@ak]#转载 2012-09-06 14:45:24 · 990 阅读 · 0 评论 -
Perl: 什么时候需要 close 文件句柄?
Perl 可以使用 open 函数来打开某个文件并对它进行一些操作,比如:打开一个名为 file.dat 的文件:open my $fh, ", "file.dat";然后可以对文件进行一些操作,比如逐行打印它的内容:while () { print;}然后程序可以结束了,这时有两种意见:一种意见认为应该把 $fh 这个文件句转载 2012-11-30 15:06:23 · 3964 阅读 · 0 评论 -
perl中的sub(zz)
基本sub格式sub subname{ local ($filevar) = @_; local ($s1, $s1); ...… } &subname; 调用加&do my_sub(1, 2, 3); 另一种调用方式:d转载 2012-11-30 15:07:57 · 1470 阅读 · 0 评论 -
Perl关联数组用法集锦
本文和大家重点讨论一下Perl关联数组的概念,创建Perl关联数组,从数组变量复制到Perl关联数组,元素的增删,用Perl关联数组循环等内容,相信通过本文的学习你对Perl关联数组的用法一定会有深刻的认识。Perl关联数组一、创建Perl关联数组可以用单个赋值语句创建Perl关联数组,如:%fruit=("apples",17,"bananas",9,"oranges转载 2012-11-30 15:09:24 · 2692 阅读 · 0 评论 -
强大的Perl中的正则
Perl的正则是相当强大的Perl 程序中,正则表达式有三种存在形式分别是(1 模式匹配:m// #平时我们简写 // ,略去m,三个参数/i不区分大小写 /s匹配任何字符 /x添加空格 /o 不重复编译正则表达示(2 模式替换:s/// /g 进行全局替换 \U 大小写转换,例如s/(f转载 2012-11-30 14:58:58 · 1129 阅读 · 0 评论 -
Perl格式化输出时间日期
方法一:use POSIX qw(strftime); my $timeStr1 = strftime "%Y-%m-%d", localtime;my $timeStr2 = strftime "%Y-%m-%d", localtime(time-86400); (前一天)print "$timeStr \n";转载 2012-12-10 16:57:12 · 3976 阅读 · 0 评论 -
perl 基本语法介绍
一.数据类型(Data type): Perl 的数据类型大致分为四种:Scalar(变量)、Scalar Array(数组)、Hash Array(散列)、References(指针),看起来虽少但用起来却绰绰有余。尤其在写Perl程序时可以不必事先宣告变量,这一点对刚学程序语言的人甚为方便,不过为了以后程序除错和维护方便,我建议你还是养成事先声明变量的习惯比较好。1 Scala转载 2013-03-19 16:02:33 · 1124 阅读 · 0 评论 -
FAQ: Solaris系统下安装Perl模块可能出现的问题和解决方法
发信人: springsun (小蒜头), 信区: Perl 标 题: FAQ: Solaris系统下安装Perl模块可能出现的问题和解决方法 发信站: 水木社区 (Sat Sep 29 17:28:13 2007), 转信 前日发了一帖 “Solaris系统下安装Perl模块遇到的问题”,抱怨了一下。 flw (梨花小蓓蕾) 给了建议。 现在都已经安装成功转载 2013-08-13 17:25:57 · 1518 阅读 · 0 评论 -
如何重新配置cpan
CPAN(Comprehensive Perl Archive Network)中译为“Perl 综合典藏网”。它是一个巨大的Perl软件收藏库,收集了大量有用的Perl模块(modules)及其相关的文件。在互联网上可在此URL(www.cpan.org)找到CPAN。由于CPAN的收藏丰富,使用者甚多,在世界各地都有许多CPAN的镜站(mirror site)存在。如果你之前配置过转载 2013-08-13 17:28:41 · 2251 阅读 · 0 评论 -
perl 处理 json 数据
http://xiaofeng1982.blog.163.com/blog/static/315724582014511102541328/安装两个插件 (我的perl版本是window strawberry perl, 强烈建议用这个版本,因为在window 下面安装一些perl 包涉及nmake 等编译问题,常常让开发者在window系统下受挫,strawberry p转载 2014-11-07 17:15:33 · 4050 阅读 · 0 评论 -
Perl 的 html 解析模块
http://blog.sina.com.cn/s/blog_3ef3b17a0100e0ht.htmlHTML::TreeBuilder这个解析模块使用了强大的 HTML::Element 模块。解析时,HTML::TreeBuilder模块把整个 html 文档转换成了 perl 的数据结构,可以进行任意的操作。使用时先创建一个 HTML::TreeBuilder 对象。转载 2014-11-12 16:37:28 · 957 阅读 · 0 评论 -
perl对mysql的操作
http://blog.chinaunix.net/uid-24608128-id-2117953.htmlperl对mysql的查询:使用DBI模块。DBD::mysql:"DBI:mysql:database=$dbname;host=$hostname;port=$port";一个通过DBI执行的简单查询包括四部分:1、准备阶段。2、执行阶转载 2014-11-12 16:40:20 · 1471 阅读 · 0 评论 -
Perl-11---循环修饰符
http://bdxnote.blog.163.com/blog/static/844423520083183751732/在编写程序的过程中,常常要用到嵌套的循环结构,有时侯需要使用一种手段来中断它;Perl提供了以下四个循环修饰符:continue、next、last、redo;1、continue语句块:for循环的递增列表是在循环体之后执行的,con转载 2014-11-12 10:00:16 · 730 阅读 · 0 评论 -
Perl函数参数中传递数组和引用的使用
http://developer.51cto.com/art/201007/214024.htm本文和大家重点讨论一下Perl函数参数中传递数组和引用的使用,今天看到这个问题可以通过传递参数引用来解决,所以打算写下来,希望可以帮到大家。Perl函数参数中传递数组和引用今天看到了在Perl函数参数中传递引用的一段文章,其中讲到了一个问题,自己以前还碰到过,不过最后是通过其转载 2014-11-12 16:36:07 · 3543 阅读 · 0 评论 -
用perl获得当前日期
今天在网上查到如何用perl语言得到当前日期,记在这里:($sec,$min,$hour,$day,$mon,$year,$weekday,$yeardate,$savinglightday) = (localtime(time));print "day=======$day\n";print "mon=======".++$mon."\n";print "year=======$转载 2014-11-06 17:16:56 · 1542 阅读 · 0 评论 -
perl 中my 和 our 的区别
require 5.006当版本号小于 5.006 的时候,会返回失败,从而导致模块加载失败。所以它的作用就是保证模块调用环境的 Perl 版本。our 和 my 一样,都是对变量的声明,不过 our 声明的是包全局变量,而 my 声明的是词法变量。不过,经过 our 声明的变量,它会变得像一个词法变量一样,其实这也是 our 存在的目的:用来欺骗 strict转载 2012-08-31 17:48:01 · 976 阅读 · 0 评论 -
perl 字符串操作
字符串数组元素赋值:@tmp=qw(aaa bbb kkk 9000);相当于@tmp= (“aaa”, “bbb”,“kkk”,“9000); 字符串比较,绝不能用== ,要用eq[macg@localhost perltest]$ vi tip.pl#!/usr/bin/perlprint"input:";while(chomp($inp转载 2012-08-31 17:46:00 · 1330 阅读 · 0 评论 -
perl关联数组/哈希表
perl关联数组/哈希表一、数组变量的限制二、定义三、访问关联数组的元素四、增加元素五、创建关联数组六、从数组变量复制到关联数组七、元素的增删八、列出数组的索引和值九、用关联数组循环十、用关联数组创建数据结构1、(单)链表2、结构3、树一、数组变量的限制 在前面讲的数组变量中,可以通过下标访问其中的元素。例如,下列语句转载 2012-08-31 17:45:05 · 1937 阅读 · 0 评论 -
perl MIME::Lite 发送邮件 格式问题 如换行 字体等
在使用perl MIME::Lite 发送邮件时,发现字符串中的 \n \r\n 都不会换行,经过询问老员工,最终问题解决,解决方法是: 邮件内容可以使用html 的标签,如换行 超链接 等,这样就可以发送格式很完整的邮件了~~原创 2011-10-26 12:16:27 · 2200 阅读 · 0 评论 -
perl 发送邮件代码
#!/usr/bin/perluse strict;use warnings;use Net::SMTP;use MIME::Base64;use Encode;use MIME::Lite;my $from = '123@163.com';#my ($to,$subject,$msg) = @ARGV;#lupengfeimy ($to,$原创 2011-10-27 14:20:32 · 826 阅读 · 0 评论 -
Can't locate Time/HiRes.pm in @INC错误的处理方法 perl安装不全
最近要测试mysql日志分析工具,安装完成后遇到了perl脚本库不全问题,如下所示: # mysqlslaCan't locate Time/HiRes.pm in @INC (@INC contains: /usr/lib/perl5/5.8.5/i386-linux-thread-multi /usr/lib/perl5/5.8.5 /usr/lib/perl5/site_perl转载 2011-10-24 19:08:30 · 2438 阅读 · 0 评论 -
perl 无法 install 模块解决办法 :初始化perl模块安装环境
[root@mail src]# perl -MCPAN -e shell/usr/lib/perl5/5.8.8/CPAN/Config.pm initialized.CPAN is the world-wide archive of perl resources. It consists of about100 sites that all replicate the same转载 2011-10-28 11:04:05 · 6747 阅读 · 0 评论 -
Perl-02---字符串
Perl-02---字符串 2008-03-26 20:09:57| 分类: Perl|字号 订阅一、Perl中的字符串:Perl中有三种字符串:双引号字符串、单引号字符串和反引号字符串;1、双引号字符串(" "):是使用一对双引号括起来的一串字符,其作用类似于C语言中的字符串;使用双引号时,Perl解释器实际上会逐一检查字符串直转载 2011-10-31 15:44:13 · 667 阅读 · 0 评论 -
perl中shift 和unshift 操作
perl中shift 和unshift 操作##################################################################### unshift 和shift 对一个数组的开头进行操作(数组的左端有最小下标的元素)。# unshift 和shift,如果其数组变量为空,则返回undef。###############转载 2011-10-31 17:29:29 · 962 阅读 · 0 评论 -
Perl转义字符用法解析
Perl转义字符用法解析2010-07-14 15:32 nbc_prc csdn.net 我要评论(0) 字号:T | TPerl转义字符你是否了解,这里向大家简单介绍一下比较常用的Perl转义字符的含义,希望通过本文的介绍你对常用的转义字符含义有一定的了解。AD:本文和大家重点讨论一下Perl转义字符的含义,在学习Perl转载 2011-10-31 15:44:46 · 2778 阅读 · 0 评论 -
Perl打开读取文件
在Perl中可以用open或者sysopen函数来打开文件进行操作,这两个函数都需要通过一个文件句柄(即文件指针)来对文件进行读写定位等操作。下面以open函数为例:1:读:open(文件句柄,"文件名")/open(文件句柄,"文件名"),前提文件必须已经存在,否则会返回0,出错信息在$!中。2:写:open(文件句柄,">文件名"),文件如果不存在,那么创建之,如果存在,内容被清空转载 2011-10-31 15:46:36 · 1218 阅读 · 0 评论 -
perl调用shell命令并获取输出
1 systemperl也可以用system调用shell的命令,它和awk的system一样,返回值也是它调用的命令的退出状态.如果向system传递一个字符串作参数,则perl会调用shell来执行这个命令,在这个字符串内也就不可以有perl的变量了;如果传递多个字符串作参数,则perl会自己执行这个命令,且可以传递perl自己的变量给它,因为perl会对这些变量扩展成它们的值转载 2011-10-31 15:52:04 · 16540 阅读 · 0 评论 -
[Perl]chomp 和 $/
[Perl]chomp 和 $/chomp用来去掉字符串结尾的空行,这是我之前的理解。今天仔细看了chomp的文档,原来chomp不一定只用来删除字符串结尾的空行,它可以删除结尾的$/, 只不过$/的默认值是newline,所以给人的感觉chomp总是用来删除结尾的空行。通过改变$/的默认值,可以让chomp变得更灵活。比如你的某个变量$var结尾有多个空行,怎转载 2011-10-31 17:30:00 · 904 阅读 · 0 评论 -
perl 内置变量 $1
perl 内置变量 $1 2011-8-17 17:52提问者:gtruanlongbing | 浏览次数:35次#! /usr/bin/perl # $a="this is a match THIS"; $a=~/(TH)/; print " first $1\n"; $a=~/(THIS)/;print "second $1\n"; $a=~/(T转载 2011-10-31 17:30:50 · 2162 阅读 · 0 评论 -
Perl内置及特殊变量
PERL相对来说受关注的程度要低些,这里总结整理了PERL的部分内置变量,可以在程序中直接引用,希望对大家有所帮助。 $- 当前页可打印的行数,属于Perl格式系统的一部分 $! 根据上下文内容返回错误号或者错误串 $” 列表分隔符 $# 打印数字时默认的数字输出格式 $$ Perl解释器的进程ID $% 当前输出通道的当前页号 $& 与上个格式匹配的转载 2011-10-31 17:31:39 · 1152 阅读 · 0 评论 -
perl foreach用法
Foreach 从列表(数组)的第一个元素一直循环执行到最后一个元素,一次迭代一个。控制变量(本例中为$rock)每一次迭代从列表中取出一个新值。第一次为 “ bedrock” ,第三次为 “ lava” 。控制变量不是这些列表元素中的一个拷贝而是这些元素本身。 也就是说,如果在循环中修改这个变量,那原始列表中的元素也会被修改,如下面代码段所显示。这条性质是有用的,但是,如果不清楚,可能对其结转载 2012-08-31 17:46:40 · 2553 阅读 · 0 评论 -
perl sort函数的用法
一) sort函数sort LISTsort BLOCK LISTsort SUBNAME LISTsort的用法有如上3种形式。它对LIST进行排序,并返回排序后的列表。假如忽略了SUBNAME或BLOCK,sort按标准字串比较顺序来进行(例如ASCII顺序)。如果指定了SUBNAME,它实际上是个子函数的名字,该子函数对比2个列表元素,并返回一个小于,等于,或大于0的转载 2012-08-31 17:47:15 · 1272 阅读 · 0 评论 -
perl 中字符串比较和整数比较的区别
本文和大家重点讨论一下Perl字符串比较和整数比较,算术运算符的比较有大于,小于,等于,不等于等关系,而Perl字符串比较也不例外,这里向大家详细介绍一下。Perl字符串比较和整数比较Perl字符串比较操作符操作符描述 lt小于 gt大于 eq等于 le小于等于 ge大于等于 ne不等于 cmp比较,返回1,0,or-1 PS:切记整转载 2012-08-31 17:49:04 · 1087 阅读 · 0 评论 -
【转】perl中$#ARGV是什么意思
$#作为一个变量表示打印数字时默认的数字输出格式,后面加上ARGV又表示什么意思呢?遇到perl的问题首先查perldoc,在perlvar里查到关于@ARGV的一条: The array @ARGV contains the command-line arguments intended for the script. $#ARGV is generally the num转载 2012-08-31 17:49:48 · 4187 阅读 · 0 评论 -
perl连接mysql 报错 MySQL server has gone away
使用perl连接mysql,这个网上有很多案例了,一般大家都是DBI下的DBD::MySQL这个模块进行.这里做一个mask弄一个TIPS: Perl DBI MySQL的字符集为UTF8 Perl DBI 特殊字符写入时报错 Perl DBI 连接自动重连或是连接超时 1. 当MySQL的字符集是UTF8时需要引入:use utf8;binmode(STDOUT转载 2015-02-10 10:50:49 · 802 阅读 · 0 评论