-
11年总结
所属栏目：[大数据] 日期：2020-12-16 热度：146
今天是2012农历新年的大年初一， 对过去的一年做一个简单的总结： 1. 八月换了一份工作，视野和技术能力均得以提高。 2. 通过参加培训班，以及在工作中的学习，提高了英语的听说读写能力。 3. 学习了Mainframe的基础知识。 4. 参加了若干培训，加深了对操作[详细]
-
perl 获取当前脚本的目录
所属栏目：[大数据] 日期：2020-12-16 热度：78
1. 获取方法 use File::Basename; print? dirname(__FILE__); 2.?设置当前目录为lib： use Cwd qw/abs_path/; use File::Basename; use lib abs_path(dirname(__FILE__)) . '/lib';[详细]
-
perl 模块化编程实例
所属栏目：[大数据] 日期：2020-12-16 热度：178
1. 在当前目录创建 文件 Bruce目录，下面有Util.pm文件，内容如下： package Bruce::Util;use strict;use Exporter;use File::Path;our @ISA =qw(Exporter);our @EXPORT = qw(GetTimeStampStr CreateDirIfNeed LogMsg);our @EXPORT_OK = qw($LogFilePath);ou[详细]
-
perl中连接AMI
所属栏目：[大数据] 日期：2020-12-16 热度：155
sub connect_ami { my ? ?($res,$ret1); my ? ?%info = (host='localhost', ? ? ? ? ? ? ? ?port=5038, ? ? ? ? ? ? ? ?user='user',? ? ? ? ? ? ? ? #manager中的用户名 ? ? ? ? ? ? ? ?secret='secret' ? ? ? ? ?#manager密码 ? ? ? ? ? ? ? ); #CONNECT #[详细]
-
perl中使用数据库
所属栏目：[大数据] 日期：2020-12-16 热度：130
1. 连接数据库 sub connect_mysql { my ? $dbh; my ? %info = (dbname="asteriskcdrdb", ? ? ? ? ? ? ? dbhost="localhost", ? ? ? ? ? ? ? dbuser="root", ? ? ? ? ? ? ? dbpasswd="passw0rd" ? ? ? ? ? ? ? ); ? ? ? $dbh = DBI-connect("DBI:mysql:databa[详细]
-
perl中产生随机数
所属栏目：[大数据] 日期：2020-12-16 热度：179
sub ? RandKey { my ? (@code,$keyword,$time,$i,$session,$self)=undef; ? ? ?$time=time(); ? ? ?srand; ? ? ?@code=split(/ */,? "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"); ? ? ?for ? ($i=0;$i 5 ? ;$i++) ? { ? ? ? ? ?$key[详细]
-
Perl多进程实战
所属栏目：[大数据] 日期：2020-12-16 热度：161
转自http://bbs.scmroad.com/viewthread.php?tid=391 perl作为一种解释性的语言，很受广大系统管理员的欢迎，好处么就不多说了，坏处也有不少，例如对线程的支持，就一直不咋地，所以大多数情况下，我们都需要多个进程，来帮助我们完成 工作 ，闲话少说，上[详细]
-
perl中的转义字符
所属栏目：[大数据] 日期：2020-12-16 热度：116
Perl转义字符含义 n 换行 r?? 回车 t?? 水平制表符 f?? 换页符 b 退格 a 系统响铃 e ESC （ASCⅡ 编码的转义字符） 07 任何八进制的ASCⅡ(此例子007表示系统响铃) x7f?? 任何十六进制的ASCⅡ(此例子7f表示删除键的控制代码) cC?? 控制符，也就是c[详细]
-
常用的perl正则表达式
所属栏目：[大数据] 日期：2020-12-16 热度：81
^d+$ //匹配非负整数（正整数 + 0） //匹配整数 ^d+(.d+)?$ //匹配非负浮点数（正浮点数 + 0）? ^(([0-9]+.[0-9]*[1-9][0-9]*)|([0-9]*[1-9][0-9]*.[0-9]+)|([0-9]*[1-9][0-9]*))$ //匹配正浮点数? ^((-d+(.d+)?)|(0+(.0+)?))$ //匹配非正浮点数（[详细]
-
perl数组的长度与元素个数
所属栏目：[大数据] 日期：2020-12-16 热度：181
perl数组的长度与元素个数 $#数组名 ---表示数组中最后一个元素的下标，它等于元素个数减1。 @数组名 ---表示数组中元素的个数。 $标量=@数组名 ---将一个数组赋值给一个标量变量，标量得到的是这个数组的元素个数。 $数组名[数组下标]---这种格式可以取出数[详细]
-
Perl发送邮件模块比较
所属栏目：[大数据] 日期：2020-12-16 热度：84
? Perl发送邮件模块比较 1.Mail::Sendmail,用这个模块发邮件很简单,可是貌似也只能处理简单的邮件... use Mail::Sendmail; %mail = ( To = 'you@there.com', From = 'me@here.com', Message = "This is a very short message" ); sendmail(%mail) or die $Ma[详细]
-
FreeBSD 历史
所属栏目：[大数据] 日期：2020-12-16 热度：156
FreeBSD 历史 初期历史 FreeBSD 的发展始于1993年，取源于386BSD。然而，因为386BSD 源代码 的合理性受到质疑以及Novell（当时UNIX的版权拥有者）与 柏克莱 接连而来的诉讼，FreeBSD在1995年一月发布的 2.0-RELEASE 中以柏克莱 加州大学 的 4.4BSD-Lite Rele[详细]
-
15条常用的视频音频编辑脚本命令（mencoder/ffmpeg等)
所属栏目：[大数据] 日期：2020-12-16 热度：85
可以把它当快速简易参考看，主要的功能有： 视频格式转换 音频格式转换 切割视频及音频 连接两段视频 视频音频同步 将图像系列转换成视频 ? ?? 这里是 百鬼丸以前收集的一部分命令行视频音频编辑脚本命令，一直在自己的记事本里随时用，现在觉得新浪编辑器够[详细]
-
Perl Module : How to Install Perl Module on Windows
所属栏目：[大数据] 日期：2020-12-16 热度：150
The most simple task to make your tasks simpler is installing a perl module on your machine. There are three common ways by which one can install a perl module on your machine. Lets see the installation on windows machine in this post. The[详细]
-
perl里关于hash一个问题！
所属栏目：[大数据] 日期：2020-12-16 热度：196
? 如果输入文件的list文件格式如下： ????????? a.txt ????????? b.txt ????????? c.txt ??????????????????? …… ?而a.txt、 b.txt、 c.txt的格式如下的话： ????????? simulate1M 1708 INDEL:313 G GA 909 ????????? simulate1M 1744 INDEL:427 AT A 76 ?[详细]
-
用perl 从mysql取出数据做统计分析代码
所属栏目：[大数据] 日期：2020-12-16 热度：113
为完成老大的要求，我写了一个代码完成这个工作。现在记录在博客上，跟大家分享一下。脚本水平很差，((o(′?｀)o))。 要求如下： 1、数据库mydata1中有个sms_info表，表中记录格式如下： ? ? +-----------+------------------+------+-----?? |?Field?????|?[详细]
-
使用perl的Mail::SendEasy模块来发送邮件
所属栏目：[大数据] 日期：2020-12-16 热度：88
使用perl的Mail::SendEasy模块来发送邮件，首先需要确定已安装Mail::SendEasy模块 #!?/usr/bin/perl?-w? ? use?strict;? print?"mail to start............/n";? use?Mail::SendEasy;? my?$ mail ?=? new ?Mail::SendEasy(? ????????? smtp ?= ?'smtp.qq.com[详细]
-
编写perl 脚本完成文本 字符串插入工作
所属栏目：[大数据] 日期：2020-12-16 热度：114
?因工作量太大，所以写了一个脚本完成自动化工作。工作内容是，在crontab中内容如下： ? */1?*?*?*?*?/home/nagios/nsca/nagios_check_ping.sh 192.168.1.1? /dev/null?2 1? 现在改为 ? */1?*?*?*?*?/home/nagios/nsca/nagios_check_ping.sh?192.168.1.1? mo[详细]
-
Perl篇：Oracle 10g与安装Perl环境时的冲突以及解决方法
所属栏目：[大数据] 日期：2020-12-16 热度：84
???? 从官网下载完Active Perl5.10安装完后，写了很简单的Perl脚本，仅引用了一个文件拷贝模块，调用Perl解释器来运行程序的时候，报了一堆错，先是一个弹出框提示‘无法启动此程序，计算机丢失Perl58.dll’，点击确定后报出错误信息：Can't load 'D:oracle[详细]
-
perl cpan 安装错误，重新配置操作
所属栏目：[大数据] 日期：2020-12-16 热度：111
报错： Warning: Found only 0 objects in /root/.cpan/Metadata ? ? 解决： yum -y install ftp zip unzip wget?（ 是不是缺少以上工具，导致下载失败） [root@www ~]# perl -MCPAN -e shell 然后在CPAN命令行(即CPAN)键入以下指令: CPAN o conf init[详细]
-
rrdtool安装出问题！！
所属栏目：[大数据] 日期：2020-12-16 热度：62
安装rrdtool时出错，如下： error: Failed dependencies: ? ? ? ? perl(RRDp) is needed by rrdtool-1.2.30-1.wrl.i386 ? ? ? ? perl(RRDs) is needed by rrdtool-1.2.30-1.wrl.i386 依赖关系出错，下载相同版本的perl-rrdtool-1.2.30-1.el5.rf.i386.rpm? rr[详细]
-
use Perl analysis BLAST data
所属栏目：[大数据] 日期：2020-12-16 热度：152
use Perl analysis BLAST data #!/usr/bin/perluse 5.010;use strict;say "Demo : use perl process BLAST's data : search a large sequence,and find the sepcial sequence .";my $REPORT_FILE = "report.txt";my $blast_file = $ARGV[0] || 'todo';# what[详细]
-
发件队列查询perl(用于生产环境)
所属栏目：[大数据] 日期：2020-12-16 热度：117
#!/usr/bin/perl open FILE,"mailq|"; #open FILE,"1.txt" or die "can not open file!$!"; %From; %To; my $i=1; my $tuiuser=0; my $iftuixin=0; while(FILE) { ? if(/.* (w+.*@w+.*..*)/) ? { $fromuser=$1; ??? $From{$fromuser}+=1; ??? # print $f[详细]
-
perl常用特殊变量列表
所属栏目：[大数据] 日期：2020-12-16 热度：121
摘自百度： perl 内置变量 $- 当前页可打印的行数,属于Perl格式系统的一部分 $! 根据上下文内容返回错误号或者错误串 $” 列表分隔符 $# 打印数字时默认的数字输出格式 $$ Perl解释器的进程ID $% 当前输出通道的当前页号 $ 与上个格式匹配的字符串 $( 当前进[详细]
-
perl、python、shell脚本区别
所属栏目：[大数据] 日期：2020-12-16 热度：139
个人目前工作主要用到的脚本语言是shell、perl ? sed和awk一般融入到shell里面应用,bash是shell的一种,也是linux的默认shell shell是linux内核和用户命令的沟通桥梁,你输入的任何命令都是通过shell去解释,linux内核才知道你要做什么 严格的讲,shell不是一种[详细]
