在新装的Linux服务器上部署了一个作业监控磁盘空间并提前告警,在shell脚本里面调用了一个perl脚本发送告警邮件.结果出现了一个很奇怪的现象:如果手工执行该脚本/home/oracle/scripts/disk_capatiy_alarm.sh能发出告警邮件,但是在crontab里面发现脚本没有发出告警邮件.检查了/var/log/cron后发现该作业执行了.最后发现shell执行了,但是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…

  原文地址:  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的人却又极力推崇它.这里不讨论这个特性是好…

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

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

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

来源: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…

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

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

使用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…

本例子尝试使用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在这里就不解释了． 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…

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

索引 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按窗口组装 基本套路…

使用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…

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/%/ /…

1.  单引号字符串中的\n不会被当做换行符处理. 如:'\'\\'  -->  '\  . 2.  双引号 字符串联    "Hello"."World"."\n"  -->  HelloWrold 换行; 字符串重复操作   "fred"×3  --> "fredfredfred"; 大小写       "\l","\L"  -->  小写…

PERL: Practical Extraction and Report Language 参考文档 1.Perl 5 version 24.0 documentation…

来源: http://www.cnblogs.com/itech/archive/2013/02/20/2919204.html http://stackoverflow.com/questions/5703705/print-current-directory-using-perl?rq=1 1) The following get the script's directory, which is not the same as the current directory. It's not…

1.批量添加license:PrefixLicense.pl (1)给单一c/c++源文件添加license: perl PrefixLicense.pl apache_license src_file (2)给目录下的所有c/c++源文件批量添加license: perl PrefixLicense.pl apache_license src_dir…

今天用fastx_tookit 时遇到问题, 我的fastq 文件的碱基质量值格式为phred33, 而fastq_tookit 默认碱基质量值的格式为phred64, 所以报错了,提示我的fastq文件中包含非法的碱基质量值,逗号 逗号的在ascii 码表中对应的十进制数字为44, 按照phred 33 格式,其对应的碱基质量值为11,如果按照phred64处理的化, 其质量值为-20,此时就会报错, 所以需要将碱基质量给位phred64 格式的,我没找到现有工具, 只能自己写了,虽然很慢,…

在线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/…

两段代码,第二段比较好些. 下面是Split输出结果方式的代码: #!/usr/local/bin/perl #Date:2015-07-07 print "Begin to restart tomcat\n"; my $output = `ps -ef|grep tomcat`; print "$output\n"; my $pid="-1"; my @arr=split(/\n/,$output); $length=@arr; ; while…

今天第一天写博客,写的不好请大家多多指教,废话不多说了,干货送上: ############################################################# #!/usr/bin/perl use warnings; use strict; my %hash; my $source_file=$ARGV[0]; #输入文件 my $dest_file = $ARGV[1];#输出文件 open (FILE,"<$source_file") or…

使用use Net::FTP;Demo:    my $Server = '192.168.1.1';    my $User = 'admin';    my $Password = 'admin';        my $ftp = Net::FTP->new($Server,Passive => 0, Debug => 1,Timeout => 10) or die "Could not connect.\n";    if (defined $ftp)…

$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 &…

我的第一个用于生产环境的perl脚本,虽然不是很优秀,但也迈出了扎实的一步 :)领导有任务,给一批IP列表,ping每一台机器,如果没有响应就发邮件通知,通知的邮件需要分开,不能通知一个列表,得一封一封的通知.用到email::send模块,因为需要用到Gmail 复制代码代码如下: #!/usr/bin/perl use warnings; use strict; use Email::Send; use Email::Send::Gmail; use Email::Simple::Creat…

引子 跟踪perl和python脚本对文件的访问,实际过程中,perl和python解析器在解析完脚本后,直接关闭了 脚本文件,在进程中查询不到是访问文件的脚本文件名称. shell.perl和python脚本执行过程 bash脚本执行过程 脚本内容: #!/usr/bin/env bash echo `date`" hello world!" >> /root/log.txt 使用strace跟踪脚本执行过程,为了节省篇幅,只保留一些关键执行过程: # strace -q…

继前一篇大体上翻译了Email的Action配置,本篇继续看一下Shell的相关配置. Shell Action Shell Action可以执行Shell脚本命令,工作流会等到shell完全执行完毕后退出,再执行下一个节点.为了运行shell,必须配置job-tracker以及name-node,并且设置exec来执行shell. Shell既可以使用job-xml引用一个配置文件,也可以在shell action内直接配置.shell action中的配置会覆盖job-xml中的配置. EL…