jackm1688的博客

#!/usr/bin/perl=podAuthor@LaomengE_mail:18682093512@163.com运维工作自动化： 由于这种工作是一种重复性的操作，在人工产生的报表过程有可能出现 数据的错或格式不正确通过(难免不认真)，所以为减少工作的重复性和避 免生产过程中数据错误和格式错误而开发了自动邮件程序(这只是主程序一部分)。=cutuse MIME::Base

-1-----------------------------------------------------------------------------------------------------------------用s///进行替换 s/// 找查并替换 $_="test meng"; if(s/test/wang/) #查找并test并将其替换wang {

#!/usr/bin/perluse strict;use warnings;use Term::ReadPassword; #隐藏密码=pod 验证用户登录 passwd file ./switch 是存放用户名密码的数据文件=cutmy (%names,@logusers,$time); #//%names来用验证用户名和密码 @logusers用来保持用户的登录信息chom

#!/usr/bin/perluse strict;use warnings;use Term::ReadPassword; #隐藏密码=pod 注册用户 passwd file ./switch 是存放用户名密码的数据文件=cutprint "\n\nWelcome to Jackm's word\n\n";my (%user_info,$passwd,$re_passwd);

#!/use/bin/perl=pod 制作MAMC-DMZ区域的TOP5统计图=cutuse utf8;use Encode;use SVG::TT::Graph::Line;#database infouse DBI;use File::Find;use Data::Dumper;use POSIX qw(strftime);my $date = strftime("%

#!/usr/bin/perl -w #Author@Laomeng=pod 没事就是写着玩，这个工具可以吧。=cutuse utf8;use strict;use Encode::CN;use open ':encoding(gbk)',':std';my $user = "$ENV{'USERNAME'}";print <<"EOF";请确您当前用户具有管理员权限,否

#!/usr/bin/perl -wuse strict;use LWP::Simple;binmode STDOUT,':encoding(UTF-8)';my $imgurl = "http://imgsrc.baidu.com/forum/pic/item/0ff41bd5ad6eddc43453f36739dbb6fd536633f1.jpg";my $geturl=undef;

#!/usr/bin/perl=pod 前段时间朋友让我帮他写个小工具用来从这个网站http://www.baidu.com/s?wd=site%3A上来抓取一些信息比如:域名,www.example.com,百度权重,0,站内链接,域名IP,x.x.x.x,同IP网站,0,域名年龄,2月19天,索引量-百度收录,7等这些信息，抽时间就写了一下，我主要是通LWP::Simple和正则来扑捉

#!/usr/bin/perluse strict;use warnings;=pod 闲着无事，就是写了这个小函数，该函数是用来检测一个值是否是数组中的 成员。使用方法 &in(值，数组)=cutsub in(){ my $value = shift; my @arr = @_; die "Useage: in(value,array)\n" if(!$v

zabbix版本：2.2.5 开发语言：perl 系统环境：redhat 6.7一.主要实现功能：1.邮件报警内容个性化定制 2.收件人同时显示多个联系人 3.邮件里增加报警项的监控图(1小时)二,需要注意的两个地方： 1.zabbix_server.conf开启自己告