jackm1688-CSDN博客

原创 golang 中的多态用法

package mainimport "fmt"/** *多态用法 */type Draw interface{ Paint()}type Circular struct{ Name string }type Triangular struct{ Name string}func (c *Circular) Paint(){ ...

2018-02-26 19:47:33 1667

原创 go 中的面向对象用法

package main//实现继承，封装，这里没有演示多态用法import "fmt"type Parent struct{ Name string Age int Address string Sex int}type Child struct{ Parent //通过包含实现继承 Work string}type IParent int...

2018-02-26 19:00:30 322

原创 linux批量操作工具

轻量级批量操作工具欢迎下载体验 batchTools batchTools_update 目的轻量级批量操作工具是一款自动化运维工具，基于java开发的，主要实现批量系统配置、批量程序部署、批量运行命令等功能。背景为了提高运维效率，节省成本，故提出自动化运维轻量级批量操作工作，减少重复性工作运行环境安装安装JRE1.8以版本.解...

2018-02-09 23:52:14 4476 1

效果图查看,Action模板级一些其他介绍请查看链接http://blog.csdn.net/jackm1688/article/details/50907607本次代码属于更新配置报警媒介目录:AlertScriptsPath=/wls/zabbix/alertscripts (at zabbix_server.conf confiuration file)脚本位置:/wls/zabbix/al

2016-06-21 18:50:13 3135

转载 Perl:使用SUB获得当前子程序的引用

原文:http://www.effectiveperlprogramming.com/blog/1503如果你想要写一个递归的子程序,但你不知道当前子程序的名称,该怎么办?由于Perl是一门动态语言且Perl中的代码引用是第一类对象,就算一个代码引用有自己的名字,你也可能不知道它的名字. Perl 5.16引入了__SUB__ 作为一个能返回当前子程序引用的特殊序列.虽然不用这个新特性你也能使用其他

2016-05-10 10:53:04 974

原创数据库七天自动备份（shell）

#!/bin/bash##################数据库七自动备份###################获取当前日期now_date="`date +%F`"#七天之前的日期seven_agos_date="`date -d "7 days ago" +%F`"#创建备份目录,归档目录以日期格式(2016-04-01)Back_dir='/opt/mysqlbackup'i

2016-04-13 18:12:49 620

原创数据七天自动备份脚本

#!/usr/bin/perl#Author:laomeng#Date:2016-04-11=pod 功能：数据七天自动备份脚本注意事项：检查服务器时间是正确=cutuse strict;use warnings;use POSIX qw(strftime);my $now_date = strftime("%Y-%m-%d", localtime(time)

2016-04-11 18:52:48 893

原创 bless

bless 函数的第一个参数必需是一个指针。借助指向所在包的引用，bless 函数在内部为指针指向的任何内容（即引用目标，referent）都加上了标签。这就是对象的创建流程。如果在第二个函数中没有列出包（类）的话，bless 函数便会把对象标记为属于当前的包。bless 函数使用引用寻找所需的对象，并能返回指向该对象的引用。由于bless 操作将把对象和特定的包（类）关联起来，因此Perl

2016-03-18 17:29:18 471

原创 zabbix监控邮件报警功能二次开发（自定义媒体）

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

2016-03-16 19:14:57 2617

原创注册新用户(perl)

#!/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);

2016-02-05 21:29:40 552

原创验证用户登录(perl)

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

2016-02-05 21:27:43 1176

原创 perl-制作统计图（折线）

#!/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("%

2016-01-19 21:21:21 1503

原创文件测试和目录操作

1.文件测试操作符： -r 文件或目录，对目前用户来说是可读 -w 文件或目录，对目前用户来说是可写 -x 文件或目录，对目前用户来说是执行 -o 文件或目录，对目前用户拥有 -R 文件或目录，对实际用户或组来说是可读 -W 文件或目录，对实际用户或组来说是可写 -X 文件或目录，对实际用户或组来说是可执行 -O 文件或目录，是由实际的用户拥有 1.1

2016-01-19 20:50:56 757

原创 perl模块

1.怎么查看模块使用文档 perldoc 模块名 perldoc CGI2.查看已经安装的所有模块cpan -a3.安装模块perl Makefile.PLmake && make install如果你没有权限安装可以指定安装目录perl Makefiel.PL INSTALL_BASE=指定目录or perl Build.PL./Build && ./Build install也可

2016-01-17 15:36:35 688

原创检测数组成员

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

2016-01-15 23:25:24 307

原创自动邮件程序(perl)

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

2016-01-15 22:02:45 689

原创正则表达式--处理文本

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

2016-01-12 22:46:10 347

原创 perl-标量数据

1.标量解释： Perl一般用标量(scalar)来称呼单个事务。标量PERL里最简单的一种数据类型。 1.1.数字所有数字的内部格式都相同。在PERL内部，则总是按"双精度浮点数(Double-precision floating-point)"的要求来保存数字进行运算。也就说PERL内部不存在整数值-----程序中用到整型常量会被转换成等效的浮点

2016-01-02 01:08:57 674

原创 vi常用命令

vi的基本操作 a) 进入vi 　　在系统提示符号输入vi及文件名称后，就进入vi全屏幕编辑画面：　　　$ vi myfile 　　不过有一点要特别注意，就是您进入vi之后，是处于「命令行模式（command mode）」，您要切换到「插入模式（Insert mode）」才能够输入文字。初次使用vi的人都会想先用上下左右键移动光标，结果电脑一直哔哔叫，把自己气个半死，所以进入vi后，先不要乱动，

2016-01-01 12:21:44 291

原创 Linux信号

Linux信号信号值描述 1 SIGHUP 挂起进程 2 SIGINT 终止进程 3 SIGQUIT 停止进程 9 SIGKILL 无条件终止进程 15 SIGTERM 可能终止进程 17 SIGS

2016-01-01 12:04:04 319

原创 linux运行级别

linux运行级别---基于red hat的发行版0 关机1 单用户模式2 多用户模式，通常不支持网络3 全功能多用户模式，支持网络4 可定义用户5 多用户模式，支持网络和图形化和X Windows会话6 重启linux运行级别---基于Debian发行版0 关机1 单用户模式2~5

2016-01-01 12:03:13 292

原创 linux"$* "$*" $@ "$@"用法解释

###############################################################$*cat laomeng.sh#!/bin/bashecho "Laomeng $*"for i in $*doecho "Laomeng is: $i"done结果：sh laomeng.sh 1 2 3 4Laomeng 1 2 3 4Laomeng is: 1Laom

2016-01-01 12:00:27 883

原创数据备份与还原

#!/bin/bash#Author@Laomeng #E_mail:18682093512@163.com#Function:Backup CC database and tableCCVERSION=`asterisk -rx "" | head -2|tail -1 | gawk '{print $5}'`LMYSQL="/usr/bin/mysqldump"LMMSQL1="/u

2016-01-01 11:55:49 698

原创批量创建&删除用户

#!/bin/bashgroupadd testfor i in `seq 10`do useradd -G class lmtest$i passwd student$i <<EOF &> /dev/nullabc-123abc-123EOFdone#!/bin/bashfor i in `seq 10`do userdel -r lmtest$i

2016-01-01 11:51:51 472

原创检查局域网存活主机

#!/bin/bashIPDIR="/opt/"if [ -f ${IPDIR}"upip" ]; then rm -rf /opt/upip rm -rf /opt/ipdownfi#exit 0for i in `seq 254`do ip=192.168.7.$i ping -c 1 $ip &> /dev/null [ $? -eq 0 ] &

2016-01-01 11:49:47 1066

原创 LINUX服务器巡检执行(定制)

#!/bin/bash#Aut@Laomeng#Server inspection reportAUT="Aut@Laomeng"LMTIME=`date +%m/%d/%Y`DATETIME=`date +%k:%M:%S`LMHOSTNAME=`cat /etc/sysconfig/network |grep "HOSTNAME"|gawk -F= '{print $2}'`NOW

2016-01-01 11:48:47 659

转载 CentOS下拨号上网（网络转载）

一、确实pppoe软件包已经安装rpm -qa|grep rp-pppoe二、运行 adsl-setup 命令，会出现相关提示，根据提示输入账号，密码，还有DNS服务器地址即可：[ root@sysconfig ~ ] # adsl-setupWelcome to the ADSL client setup. First, I will run some checks onyour syst

2016-01-01 11:44:24 619

原创 Linux系统下批量修改文件名称

#!/bin/bash#批量修改文件名称cd /opt/testfor lfile in *do lnew=`echo $lfile |awk '{print $0}'|sed -n 's/ippbx/idds/p'` mv $lfile $lnewdone

2016-01-01 11:43:15 397

原创 win7共享配置无线热点

#!/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";请确您当前用户具有管理员权限,否

2016-01-01 11:41:14 404

原创 mysql备份表（按需配置）

MYSQL="/usr/bin/mysql"USER="root"PASSWD="abc123"DATDABASE="test"LTABLE="laomeng"BAKTABL="laomengbak"#判断备份表是否存在如果不存在，创建新表if [ ! -e "/var/lib/mysql/test/laomengbak.frm" ]; then$MYSQL -u$USER -p$PAS

2016-01-01 11:37:54 419

原创 perl&lwp下载图片功能

#!/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;

2016-01-01 11:36:21 478

原创 mysql--批量插入数据

#!/usr/bin/perl -wuse strict;#Aothor@Laomeng#E-mail:18682093512@163.com=syn1 背景：批量插入指定的格式的数据 nsert_logfile程序的功能：是数据库中的mamc_api库的mamc_report表中插入数据 =cutuse DBI;use Encode;use File::Find;use Data

2016-01-01 11:25:11 611

原创 mysql基础学习笔记

=pod 1-8这些都是关于数据创建，删除，修改，查询库信，选择数据库的基本操作。 =cut 1.创建数据命令 CREATE DATABASE dab_name CHARACETER SET [=] char_name2.查询数据库 SHOW DATABASE;3.查询数据库创建过程(信息) SHOW CREATE DATABASE db_name;4.查询当前所在库的位置

2016-01-01 11:08:51 483

原创抓取日志

!/usr/bin/perluse strict; use warnings; use File::Find; use File::Basename; use POSIX qw(strftime);my date=strftime(“mydate = strftime(“%Y-%m-%d”, localtime(time - 24*3600));#yestarday my LOG_DI

2015-11-28 12:05:08 1584

原创 linux轻量小型批量工具

linux轻量小型批量工具http://blog.csdn.net/jackm1688/article/details/79302620点击打开链接

2018-02-09 23:53:43 633

原创数组列表容器

package List;public class NewArrayList{ private Object[] array; private int size; public NewArrayList() { this(10); } public NewArrayList(int initialCapacity) { if(in

2016-09-06 20:48:31 269

原创 perl网络编程小记(-)

当perl脚本开始执行时,默认地打开3个文件句柄:STDOUT,STDIN,STDERRSTDOUT(standard outpu)是默认的输出文件句柄.发送给这个文件句柄的数据在用户指定的输出设备上显示，通常是脚本运行的命令窗口。STDIN(standard input)是默认输入的文件句柄,从这句柄读取的数据取自用户选择输入设备,通常是键盘.STDERR(即,standard error)用

2016-04-15 17:44:28 4544

翻译 php上传文件代码

<!DOCTYPE hmtl><html><head> <meta charset="utf8"> <title>upload</title></head><body> <form action="upload_file.php" method="post" enctype="multipart/form-data"> <label for="file">Filename:</l

2016-04-11 22:29:54 315

翻译 perl对象

#!/usr/bin/perl=pod [1]对象就是一个引用 [2]类就是包 [3]方法就是子例程=cut#方法调用=pod 对于类方法而言,调用者是包的名字对于实例方法而言,调用者是指定对象的引用=cut#名词解释 INVOCANT 方法调用者#[1] 使用箭头操作符的方法调用=pod INVOCANT->METHOD(LIST) INVOCANT->

2016-02-22 20:45:21 580

转载 perl内置变量的解释

登录首页专栏专家热文lreper 的专栏[转]perl 中的特殊内置变量2013-1-21 阅读500 评论0$- 当前页可打印的行数,属于Perl 格式系统的一部分$! 根据上下文内容返回错误号或者错误串$” 列表分隔符$# 打印数字时默认的数字输出格式$$ Perl 解释器的进程ID$% 当前输出通道的当前页号$& 与上个格式匹配的字符串$( 当前进程的组ID$) 当前

2016-02-22 20:43:49 2935

空空如也

空空如也