Perl
文章平均质量分 57
高尔夫golf
这个作者很懒,什么都没留下…
展开
-
【demo】Perl 获取AIX进程数量HTTP给远程接收端
#!/usr/bin/perluse Time::Local; #use Time::Format;use HTTP::Request::Common;use Data::Dumper;use HTTP::Headers;use LWP::UserAgent;use Encode;use Test::More;use strict;eval{ my @result = readpipe(...原创 2018-05-28 10:41:44 · 259 阅读 · 0 评论 -
Perl调用shell命令方法小结
一、systemperl也可以用system调用shell的命令,它和awk的system一样,返回值也是它调用的命令的退出状态.复制代码 代码如下:[root@AX3sp2 ~]# cat aa.pl#! /usr/bin/perl -w$file = "wt.pl";system("ls -l wt.pl");$result = system "ls转载 2016-10-01 15:53:26 · 399 阅读 · 0 评论 -
@ARGV:perl命令行参数
当perl脚本运行时,从命令行上传递给它的参数存储在内建数组@ARGV中,@ARGV是PERL默认用来接收参数的数组,可以有多个参数,$ARGV[0]是表示接收到的第一个参数,$ARGV[1]表示第二个。使用方法为:perl my.pl $ARGV[0] $ARGV[1]看一个具体例子:比如文件1的内容:13202381320239132023913202转载 2016-10-02 08:46:32 · 1732 阅读 · 0 评论 -
perl面向对象
Perl面向对象 首先让我们来看看有关 Perl 面向对象编程的三个基本定义: 1. 一个“对象”是指一个“有办法知道它是属于哪个类”的简单引用。(对象就是引用变量) 2. 一个“类”是指一个“有办法给属于它的对象提供一些方法”的简单的包。(类就是包) 3. 一个“方法”是指一个“接受一个对象或者类名称作为第一个参数”的简单的子程序。(类的方法就是第转载 2016-12-23 16:49:04 · 303 阅读 · 0 评论 -
Perl 监控 tomcat,可以安心回家过年了
Perl 监控 tomcat 公司的struts 2 项目,偶尔会出现out of memory异常,导致系统崩溃,所以写了个脚本监控一下。间隔10秒Post一次数据,连续5次不是返回 200 OK,就重启tomcat。use AnyEvent;use AnyEvent::HTTP;use POSIX qw(strftime);use strict; use w转载 2016-12-19 14:35:19 · 398 阅读 · 0 评论 -
redis查看连接数
使用命令infoClientsconnected_clients:357 client_longest_output_list:0 client_biggest_input_buf:0 blocked_clients:0Memoryused_memory:2994586784 used_memory_human:2.79G used_memory_rss转载 2016-12-27 10:48:29 · 8590 阅读 · 0 评论 -
perl 判断不包含某字符串
if ($str !~ /abc/) { #匹配了不包含的}else { #匹配了包含的}转载 2016-12-20 20:21:50 · 5747 阅读 · 0 评论 -
Perl中删除或替换字符串中特殊字符(如空格)的方法
今天在写实验代码的时候,突然有了这样一个需求,就是用Perl将包含换行(或回车)的字符串变成一行,并且每一行用空格分隔,经过搜索,网友介绍了这样的写法:[plain] view plain copy$string=~ s/[\n\r]/ /g; 其实也很好理解,这里把网友的解释摘抄过来:=~ s/A/B/g 可以起到替转载 2016-12-20 20:26:08 · 11733 阅读 · 0 评论 -
perl 提取字符串的中数字(包括小数点)
my $x='12.0 M';$x=~ s/[^0-9]//g;print $x."\n";print "######################################################\n";my $xx='12.67 M';$xx=~ /(\d+.*\d)/g;print $1."\n";print "####原创 2016-12-20 21:03:46 · 9034 阅读 · 0 评论 -
使用Perl进行网页数据抓取[初学者简明版]
在工作中,经常需要将网页上的大块大块的标准化的内容下载下来。这个时候,没有什么比编写个脚本更方便的了。为什么选择Perl来做,主要还是Perl在文本处理方面有着天然的优势。以最近同事让我做的下载加油站网站作为例子,加油站的网址是:http://www.cheduoshao.com/gas/1/,同事想把加油站的名称和地址,下载下来,要一个一个粘贴太没效率了。做这个事情的大概顺序是:转载 2016-09-30 10:34:50 · 3141 阅读 · 0 评论 -
perl 线程概述
线程概述线程是一个单一 的执行流程,它是所有程序执行过程中最小的控制单位,即能被 CPU 所调度的最小任务单元。线程与进程之间既有联系,又完全不同。简单地说,一个线程必然属于某一个进程,而一个进程包含至少一个或者多个线程。早期的计算机 系统一次只能运行一个程序,因此,当有多个程序需要执行的时候,唯一的办法就是让它们排成队,按顺序串行执行。进程的出现打破了这种格局,CPU 资源按时间片被分割转载 2016-09-23 10:00:08 · 410 阅读 · 0 评论 -
解答:一个perl操作config.ini的出现的 cannot find file or dirctionary,可明明文件存在
需求:perl 脚本动态的获取配置文件,将有exception的异常大文件in.log 抓取exception异常出来写入一个小文件out.log中问题:perl操作一个config.ini文件读取配置infilepath和outfilepath,perl脚本一直报找不到can not find file or dirctionaryperl代码如下:#!/usr/bin/pe原创 2016-09-14 12:34:13 · 1057 阅读 · 0 评论 -
Perl连接Oracle数据库的一些操作脚本【转】
一、 perl连接Oracle数据库[plain] view plaincopy[oracle@oracle11gR2 perl_script]$ more connect.pl #!/usr/bin/perl #perl script used to connect to Oracle use strict; us转载 2016-09-14 12:46:32 · 3526 阅读 · 0 评论 -
perl亲身试验ini---使用perl读写配置文件
以前保存配置信息,都是直接将信息保存到文本文件,每行一条。这样做会导致可读性降低。如去年课程作业编写的一个“光线追迹”软件,需要读取的数据完全用空格和换行分隔后保存于文本文件,现在想要理解各个数据的含义就只能查看源代码了,幸好当时注释写的非常详细。又如今年的一个“膜厚计算”软件。因为需要跨程序调用各个信息(cliLABVIEWdll),直接传递参数太复杂,因此将很多的设置项与共转载 2016-09-14 12:50:57 · 4044 阅读 · 0 评论 -
perl index和rindex的用法
perl index和rindex的用法perl中,如果我们要查找一个字符子串在字符串中的位置,perl给我们提供了两个函数,一个为index,另外一个rindex。从两个函数上我们其实就可以看出,index为从前往后查找(从左到右),而rindex则是从后往前(从右到左)查找。下面我们就通过一个例子来看看index和rindex是怎么工作的。#! /u转载 2016-09-15 10:17:08 · 1567 阅读 · 0 评论 -
Perl 字符串截取函数substr
在编写perl程序的时候,我们有时需要截取一个字符串中的部分内容。这个时候通常会使用substr函数实现这个功能。函数参数:substr(待截取字符串,截取起始位置,截取终了位置);view plaincopy to clipboardprint?$str="testtest"; print substr($str,0,5); $str="test转载 2016-09-15 10:09:48 · 27450 阅读 · 1 评论 -
【 Perl 】三种方式解决” Wide character in print “
1、binmode STDOUT, “:utf8〃;因为程序本身是用utf8编码的(可以用use utf;明示给Perl)。这句话就是告诉Perl输出是utf8编码的。2、use utf8::all;当然,我们需要先安装这个模块utf8::all。一劳永逸,所有涉及字符集编码的地方,此模版都会帮你设置为utf8;3、encode( ‘utf8′, $_ );嗯。需要先use转载 2016-08-26 11:18:10 · 10941 阅读 · 0 评论 -
Wide character in print at ../lib/MonWalkProc.pm line 569.
use utf8::all;当然,我们需要先安装这个模块utf8::all。一劳永逸,所有涉及字符集编码的地方,此模版都会帮你设置为utf8;需要安装perl包如下:Import-Into-1.002005.tar.gzPerlIO-utf8_strict-0.006.tar.gzutf8-all-0.021.tar.gz原创 2016-08-26 11:14:33 · 504 阅读 · 0 评论 -
Perl线程开发过程中的经验
Perl线程是一个单一的执行流程,它是所有程序执行过程中最小的控制单位,即能被CPU所调度的最小任务单元。Perl线程与进程之间既有联系,又完全不同。简单地说,一个Perl线程必然属于某一个进程,而一个进程包含至少一个或者多个Perl线程。早期的计算机系统一次只能运行一个程序,因此当有多个程序需要执行的时候,唯一的办法就是让它们排成队,按顺序串行执行。进程的出现打破了这种格局,CPU资源按时间片被转载 2016-09-23 09:48:01 · 1306 阅读 · 0 评论 -
用perl发送http请求
工作中经常用到脚本发送http请求,但是用脚本发送和用浏览器发送差别很到,当你用脚本调用一些接口时可能没有权限,此时需要获取到调用接口的权限,一般情况下就是。请求的时候需要带着一个cookie值或者一个token值,浏览器发送时一般都会保存这个值,但是脚本发送不知道保存在那个地方还是不会生成(知道的小伙伴告诉我一声),但是一般的做法是带着用户名和密码去请求,服务器给你回复一个cookie值,然后下转载 2017-02-21 17:07:10 · 2649 阅读 · 0 评论 -
perl 多线程及信号控制
[plain] view plain copy #!/usr/bin/perl use strict; use warnings; use threads; use Thread::Semaphore; my $max_thread = 5; my $semaphore = Thread::Semaphore->new($转载 2017-02-23 19:20:13 · 993 阅读 · 0 评论 -
perl 中文处理 乱码
今天在处理数据时,发现perl的中文输出总是乱码,后来用use Encoding;encode("gbk", decode("utf-8", $str));这样的语句转一下就好了,decode的应该是$str原来的编码方式,转为后面的编码方式就可以了。原创 2017-12-09 15:49:04 · 2482 阅读 · 0 评论 -
perl模块安装
perl模块安装 转自:http://www.mike.org.cn/blog/index.php?load=read&id=643 Perl 到了第五版增加了模块的概念,用来提供面向对象编程的能力。这是 Perl 语言发展史上的一个里程碑。此后,广大自由软件爱好者开发了大量功能强大、构思精巧的 Perl 模块,极大地扩展了 Perl 语言的功能。CPAN(Comp转载 2017-12-10 12:33:00 · 1426 阅读 · 0 评论 -
Perl用LWP实现GET/POST数据发送 原
1. GET ,获取网页内容,3句话,很简单吧!#!perl -wuse strict;use LWP;my $browser = LWP::UserAgent->new();my $response= $browser->get("http://www.toolmao.com");print $response->content; # 输出获得的网页内容转载 2017-12-05 15:30:47 · 775 阅读 · 0 评论 -
Perl用LWP实现GET/POST数据发送
1. GET ,获取网页内容,3句话,很简单吧!#!perl -wuse strict;use LWP;my $browser = LWP::UserAgent->new();my $response= $browser->get("http://www.toolmao.com");print $response->content; # 输出获得的网页内容转载 2017-12-05 17:07:54 · 1533 阅读 · 0 评论 -
Perl Redis 连接测试脚本,获取list长度
Redis连接测试脚本1.部署环境OS: Windows 7 简体中文旗舰版 X64 SP1Perl: ActivePerl-5.16.2.1602-MSWin32-x86-296513.msiRedis: redis-2.8.19.zip for Windows Perl Redis: Redis-1.966安装方法:ppm in转载 2018-01-02 17:27:01 · 435 阅读 · 0 评论 -
Eclipse安装Perl插件
编辑删除http://www.cnblogs.com/emanlee/archive/2012/08/11/2633701.htmlEclipse安装Perl EPIC插件,在Eclipse中开发Perl项目前提:已经安装了 Eclipse,Java,Perl(例如 ActivePerl)。步骤:启动Eclipse,Eclipse中, 选择转载 2018-01-03 10:32:38 · 628 阅读 · 0 评论 -
perl调用shell命令并获取输出
1 systemperl也可以用system调用shell的命令,它和awk的system一样,返回值也是它调用的命令的退出状态.如果向system传递一个字符串作参数,则perl会调用shell来执行这个命令,在这个字符串内也就不可以有perl的变量了;如果传递多个字符串作参数,则perl会自己执行这个命令,且可以传递perl自己的变量给它,因为perl会对这些变量扩展成它们的值$ perlsy...转载 2018-05-25 12:50:11 · 5764 阅读 · 0 评论 -
perl system函数返回值问题
在Perl脚本中,允许调用系统的命令来进行操作。这就是Perl灵活性的体现,作为一种系统命令的粘合语言,能给程序员带来许多的便利。这样,你就可以最大限度地利用别人的成果,用不着自己使劲造轮子了。在Perl中,可以用system、exec、readpipe这三个命令来调用其他脚本、系统命令等。这三个命令的主要区别就是返回值。1) 对于system这个函数来说,它会返回执行后的状态,比如说 @a...转载 2018-05-25 15:08:41 · 6948 阅读 · 0 评论 -
Perl_获得字符串长度_length($var)
例:my $var='\\'; #此处'与"括着的\\颜色一样my $var1="\\";my $len=length($var);my $len1=length($var1);print $len."\t".$len1."\n";#输出1\t1\n$var='\n'; #此处'与"括着的\\颜色不一样;$var1="\n";$len=lengt转载 2017-07-16 15:00:46 · 6497 阅读 · 0 评论 -
Perl 字符串截取函数substr
在编写perl程序的时候,我们有时需要截取一个字符串中的部分内容。这个时候通常会使用substr函数实现这个功能。函数参数:substr(待截取字符串,截取起始位置,截取终了位置);view plaincopy to clipboardprint?$str="testtest"; prin转载 2017-07-16 14:45:09 · 3744 阅读 · 0 评论 -
perl 多线程
刚学perl多线程,下面是一些多线程的例子,希望看后会有些帮助例子一:http://yufengseu.spaces.live.com/Blog/cns!31875D62B958914B!138.entry以前为了方便自己(当然也是为了偷懒^_^)使用perl写了一个脚本来抓取网页,并进行分析以获取我想要的信息,随着要抓取的网页越来越多,这个脚本的执行效率明显变慢,于是想到了使转载 2017-02-23 19:21:45 · 1784 阅读 · 0 评论 -
perl多进程实战之一
perl作为一种解释性的语言,很受广大系统管理员的欢迎,好处么就不多说了,坏处也有不少,例如对线程的支持,就一直不咋地,所以大多数情况下,我们都需要多个进程,来帮助我们完成工作,闲话少说,上代码。 #!/usr/bin/perl# test_proc.pl# test multi process# create by lianming: 2009-08-12 u转载 2017-02-25 17:00:59 · 906 阅读 · 0 评论 -
perl DBI 总结
最近在写perl程序进行数据的采集,perl教程在网上少的可怜呐,至少我找到的资料是很少的。在连接数据库方面下面这个博客写的还是很清晰的,所以就转过来了。源文地址:http://blog.csdn.net/like_zhz/article/details/5441946DBI和DBD的不同关系模型:##########################转载 2017-04-07 14:35:51 · 857 阅读 · 0 评论 -
perl - Java调用perl
代码亲自跑一下,很好玩Java 调用 perl Java代码 Runtime.getRuntime().exec("perl C:\\Perl\\execise.pl"); Java 调用 perl 通过IO的方式来得到返回值 Java代码 package fiveGame; import转载 2017-05-02 07:12:18 · 2074 阅读 · 0 评论 -
Perl 模块 Getopt::Std 和 Getopt::Long
示例程序:getopt.pl;12345678#!/usr/bin/perl -w#use strict;use Getopt::Std;use vars qw($opt_a $opt_b $opt_c);getopts('a:b:转载 2017-05-02 07:16:55 · 786 阅读 · 0 评论 -
perl模块Getopt::Std用法及实例-从命令行读取参数模块
Getopt::Std模块的使用:初始设置:在程序中加入如下代码:use Getopt::Std;use vars qw($opt_d $opt_f $opt_p);getopts('d:f:p');#注意上两行的参数要对应[ 解释一下"d:f:p",d和f后有冒号,表示-d,-f后面要跟参数。p后面没有冒号,表示-p后面不带参数。而且-d,-f后转载 2017-05-02 07:19:23 · 1675 阅读 · 0 评论 -
perl将字符串时间转换成 epoch time
mysql有函数做转换perl也有time localtime gmtime 要将字符串时间转换成epoch time可以使用Date::Calc #!/usr/bin/perluse strict;use Date::Calc qw(Mktime);use Data::Dumper;my $time = Mktime('201转载 2017-05-03 07:14:56 · 4404 阅读 · 0 评论 -
perl 字符串格式转化为时间格式,时间戳,epchotime
use Time::Format; use Time::Local; use strict; use Date::Calc qw(Mktime); use Data::Dumper; my $timeStr = '20170502215358'; my $year = substr($timeStr,0,4); my $mon = s原创 2017-05-03 07:18:20 · 5631 阅读 · 0 评论 -
perl 大小写转化
=lc(‘ALL’):小写函数输出:all=uc('all'):大写函数输出:ALL原创 2016-09-01 20:23:04 · 3016 阅读 · 0 评论