jackm1688的博客

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

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

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

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

#!perl use strict; use warnings;chdir '/root/test';foreach my $file(glob '*.txt') { my $newfile = $file; $newfile =~ s/\.txt/\.file/; if(-e $newfile) { warn "Cant rename $file

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