perl 脚本测试

原文地址: http://blog.csdn.net/johnny710vip/article/details/8905239 这是一篇关于perl脚本测试的总结性文章,其中提到了很多实用的模块,如果文中介绍的不够详细,请到cpan上搜索该模块并查阅其文档. 1基本语法检查 Perl语言的哲学是“There is more than one way to do it”,很多讨厌Perl的人总是拿Perl的这个特性来攻击Perl,而喜欢Perl的人却又极力推崇它.这里不讨论这个特性是好…

工具推荐. 在线unix, 在线python/perl脚本测试环境

在线python, perl, javascript, Lisp, Ruby等 http://melpon.org/wandbox/ 正则表达式在线测试工具 http://tools.jb51.net/tools/regex.asp http://tool.oschina.net/regex 在线unix http://cb.vu/…

crontab不执行perl脚本分析

在新装的Linux服务器上部署了一个作业监控磁盘空间并提前告警,在shell脚本里面调用了一个perl脚本发送告警邮件.结果出现了一个很奇怪的现象:如果手工执行该脚本/home/oracle/scripts/disk_capatiy_alarm.sh能发出告警邮件,但是在crontab里面发现脚本没有发出告警邮件.检查了/var/log/cron后发现该作业执行了.最后发现shell执行了,但是perl脚本没有执行.搜索了相关资料后,了解到一般出现这种情况要么是因为环境变量,要么是因为使用了相对…

Perl文件测试操作和stat函数

在shell中通过test命令或者中括号[]可以进行文件测试以及其它类型的测试,例如判断文件是否存在,比较操作是否为真等等.perl作为更强大的文本处理语言,它也有文件测试类表达式,而且和shell的文件测试用的字母符号都类似. perl中测试文件的属性来源是perl的内置函数stat,它可以获得文件的13项属性.后文会介绍该函数. 测试符测试符号都是短横线开头,加一个字母.例如,测试文件是否存在-e "a.log".在可能产生歧义的情况下,这些测试符可以用括号包围,例如:(-e &…

工具推荐：ATSCAN，功能强大的Perl脚本扫描器

工具推荐:ATSCAN,功能强大的Perl脚本扫描器使用perl语言编写的开源的扫描器,功能丰富强大,除了基本的tcp和udp端口扫描之外,还可以搜索wordpress.joomla等网站并进行口令猜解等攻击. 描述: ATSCAN version6.3 搜素引擎 XSS扫描器 sqlmap 本地文件包含扫描器筛选出wordpress和Joomla网站寻找Admin页面编解码MD5和Base64 端口扫描搜索网站的电子邮件地址使用代理 user-agent随机错误扫描检测Cms…

使用Perl脚本编译Latex

使用Perl脚本编译Latex 脚本能实现Latex文本的初级编译,并将生成的中间文件移动到同一个目录调用方法 chmod +x xelatex2pdf.pl xelatex2pdf.pl -n 2 -f test.tex # 将test.tex编译两次 Perl 代码脚本名:xelatex2pdf.pl #!/usr/bin/perl use strict; use warnings; use File::Path; use File::Copy; use File::Find; use…

linux 全自动提权 exp perl脚本

linux 全自动提权 exp perl脚本作者: admin 日期: 2013/01/19发表评论 (0) 查看评论国外流传过来的地址 http://dl.packetstormsecurity.net/UNIX/penetration/rootkits/var.txt 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39…

csv,txt,excel文件之间的转换,perl脚本

最近接触一些需要csv,txt,excel文件之间的转换,根据一些网上搜索加上自己的改动,实现自己想要的结果为主要目的,代码的出处已经找不到了,还请见谅,以下主要是针对csv&excel 和txt&excel写的perl脚本. 主要用到的模块是: Text::CSVSpreadsheet::WriteExcel Spreadsheet::ParseExcel Spreadsheet::ParseExcel::FmtUnicode Unicode::Map 可以支持中文,具体也没有要仔细…

【转】FTP自动上传文件的perl脚本以及配置文件

这个perl文件将执行的任务是, 按照指定的文件夹目录,自动将该文件夹下的所有文件上传到指定ftp站点的指定目录下本应用程序设计的几个基本理念是:工具箱再利用:尽可能利用已有的工具:简化运行步骤:不引入过多的业务逻辑,满足的需求越简单越好. 所以,我们定义了本应用程序依赖于以下几个工具的运行:ActivePerl-5.8.4.810-MSWin32-x86Upload.plUpload.config 我们将主要的执行逻辑都放在Perl源文件Upload.pl中了,配置文件为Upload.con…

[置顶] perl脚本中defined,exists和delete关键字的用法和区别

刚学习perl脚本的时候,喜欢频繁使用defined关键字判断一个hash中某个key是否存在,后来程序出了问题才去perl官方文档查看关于defined关键字的准确使用方法.因此,这里我把perl中几个关键字的用法和区别加以介绍,希望大家能够有所借鉴. defined()和exists(): 在perl脚本中,undef是一个非常特殊的整数,这个整数用来表示失败.系统错误.文件末尾.未初始化的变量以及其他一系列的异常情况.了解了undef这个变量,那么就可以来看defined变量的作用了.当d…

把perl脚本编译成exe

来源:http://www.veryhuo.com/a/view/38338.html 今天想把 perl 脚本编译成 exe 以便脱离 perl 解释器独立运行.都可以生成PERL的PE文件,在PERL官网有介绍. perl脚本编译成exe 一般有4种方法: 1. 使用 perl2exe 工具(需要购买,当然也有破解版或绿色版,不过网上只找到5.0版本的,而我的是5.12版本,版本太低所以不能使用) exe文件体积大运行慢 2. 使用 ActiveState 公司的 Perl Dev Kit…

Perl入门（七） Perl脚本的调试

版权声明:本文为博主原创文章.未经博主同意不得转载. https://blog.csdn.net/sunshoupo211/article/details/32711165 编程中错误不可避免.调试可以帮助我们发现有问题的代码段.在网上看了一下Perl脚本调试,发现事实上非常多东西并不须要,并且那么多也没人看. 以下简单整理一下. 1.进入debug. 使用-d.进入debug状态. 例:perl -d Perl程序名称. 2.设置断点 b:设置断点.例:b 行号. c:程序运行到下一个断点处,…

Perl脚本通过Expect登陆多台设备批量执行命令并Log

本例子尝试使用Perl脚本借助Expect模块实现如下目的: 登陆多台设备设备登陆信息按如下格式存放于文件中. $ cat hosts.txt 192.168.30.7:node1:telnet:bee1:123456 192.168.30.66:node2:ssh:bee2:123456 在每台设备上批量执行命令要执行的命令集合按如下格式存放于文件中. $ cat cmds.txt date w ifconfig more mylog.txt Perl脚本实现,使用了Expect模块借助…

Apache服务器中运行CGI程序的方法,文中以Perl脚本作为示例

关于apache与CGI在这里就不解释了． 1.apache下面以2.0.63为例介绍运行CGI程序的配置.(http://www.nklsyy.com) 2.下载Windows下的Perl解释器ActivePerl,最新版本ActivePerl- 5.10.0.1003,假设安装路径为c:\Perl. 3.修改apache的配置文件httpd.conf: <Directory "D:/Apache Group/Apache2/cgi-bin"> AllowOverride…

C#怎么在生成解决方案的过程中执行perl脚本(C#早期绑定)

转载怎么在生成解决方案的过程中执行perl脚本早期绑定在编译期间识别并检查方法.属性.函数,并在应用程序执行之前执行其他优化.在这个绑定中,编译器已经知道它是什么类型的对象以及它拥有的方法或属性. 早期绑定的优点1.性能很快2.易于编码.开发3.减少了运行时错误的数量项目-->属性生成解决方案的时候就会执行perl脚本文件…

Accept 惊群现象测试perl脚本

$uname -a Linux debian-11-34 3.16.0-4-amd64 #1 SMP Debian 3.16.7-ckt9-3~deb8u1 (2015-04-24) x86_64 GNU/Linux 经过测试Debina 8.0 已经解决了Aceept thundering herd https://gist.github.com/kazuho/10436253 # 1) run this script with either "accept" or &…

通过远程 http API 来控制 lnmp 环境的重启perl脚本

#!/usr/bin/perl use DBD::mysql; use strict; use warnings; use DBI; use utf8; binmode(STDOUT, ':encoding(utf8)'); binmode(STDIN, ':encoding(utf8)'); binmode(STDERR, ':encoding(utf8)'); use Time::Local; my $addtime=time(); my $dbh; ,,,,); sub getpid{ m…

zabbix微信告警（虚拟机脚本测试成功，zabbix上收不到信息）

前言: 使用zabbix直接运行脚本又可以正常接收.但是登录zabbix web界面,测试! 动作显示已送达,但是微信并没有收到信息! 解决: 添加脚本参数,因为不添加脚本参数,调用不了你这个脚本! 添加后已正常接收信息!…

生物信息 perl 脚本实战

索引 1.统计fasta.fa和fastq文件的长度,统计fastq的reads个数,单个reads长度,reads总长度:统计fasta文件中contig的个数,列出名称,单条的长度,以及总长度. 2.1局部组装:创建目录,将比对好的reads按100k为单位,用samtools切,并用awk工具提起reads,分别存放在对应文件夹内 2.2局部组装:用得到的reads_name,去原始的下机reads里提取reads序列 2.3局部组装:使用canu/soapdenovo按窗口组装基本套路…

Perl脚本学习经验（四）--Perl中sftp的使用

使用sftp,需要使用Except模块,该模块需要下载安装在perl目录下,可以上http://www.cpan.org/上下载对应的安装包:1. 用root用户登录环境:2. cd /usr/lib/perl5/ 3. 上传包IO-Tty-1.10.tar.gz 和 Expect-1.21.tar.gz到perl5目录下:4. 安装IO-Tty-1.10 tar -zxvf IO-Tty-1.10.tar.gz cd IO-Tty-1.10/ perl Makefile.PL make mak…

Linux查看监听端口的脚本测试

本文是按照lfree的博客(https://www.cnblogs.com/lfree/p/10368332.html)中的内容,进行学习.测试.总结的.有些知识点也是在阅读这篇博文时,发现不了解这方面的知识,遂网上搜索相关资料总结了一下. 1:Linux 设备里面有个比较特殊的文件:/dev/[tcp|upd]/host/port 只要读取或者写入这个文件,相当于系统会尝试连接:host 这台机器,对应port端口.如果主机以及端口存在,就建立一个socket 连接.将在,/proc/self…

linux下expect环境安装以及简单脚本测试

expect是交互性很强的脚本语言,可以帮助运维人员实现批量管理成千上百台服务器操作,是一款很实用的批量部署工具!expect依赖于tcl,而linux系统里一般不自带安装tcl,所以需要手动安装下载:expect-5.43.0.tar和tcl8.4.11-src.tar下载地址:https://pan.baidu.com/s/1kVyeLt9 提取密码:af9p 将expect和tcl的软件包下载放到/usr/local/src目录下 (1)解压tcl,进入tcl解压目录,然后进入unix目…

CGI PL PERL脚本提权

windows 2003 下,安装ActivePerl-5.16.2.1602-MSWin32-x86-296513 IIS 添加CGI支持.并在对应网站配置下面,添加CGI后缀或PL后缀与对应的perlis.dll 此时,网站支持HTTP访问CGI 或者 .pl脚本. 可以用来提取,.CGI .PL权限比较大,大于ASPX. 首先上传CGI 提权执行脚本: #!/usr/bin/perl binmode(STDOUT); ); $_ = $ENV{QUERY_STRING}; s/%/ /…

perl6检测网站CMS脚本(测试代码)

代码如下: use HTTP::UserAgent; use JSON::Tiny; my $check-url = 'www.baidu.com'; #say @*ARGS[0]; #检测命令行参数 { ].lc; }else{ say 'no http/https, eg:'; say 'cms-check.p6 www.target.com'; exit; } my $url = 'http://120.24.44.134/yunxi-web/public/home/index'; #sa…