Perl系统管理
jackm1688
专业,专注,坚持!
展开
-
自动邮件程序(perl)
#!/usr/bin/perl=podAuthor@LaomengE_mail:18682093512@163.com运维工作自动化: 由于这种工作是一种重复性的操作,在人工产生的报表过程有可能出现 数据的错或格式不正确通过(难免不认真),所以为减少工作的重复性和避 免生产过程中数据错误和格式错误而开发了自动邮件程序(这只是主程序一部分)。=cutuse MIME::Base原创 2016-01-15 22:02:45 · 688 阅读 · 0 评论 -
抓取日志
!/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 · 1574 阅读 · 0 评论 -
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 · 610 阅读 · 0 评论 -
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 · 401 阅读 · 0 评论 -
perl-批量修改文件后缀名
#!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原创 2016-01-06 22:14:20 · 1717 阅读 · 0 评论 -
zabbix监控邮件报警功能二次开发
效果图查看,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 · 3132 阅读 · 0 评论