use IO::Socket;use HTTP::Date qw(time2iso str2time time2iso time2isoz); use Net::SMTP;##监控8081sub check_s...
转载
2015-08-23 11:05:00
158阅读
2评论
use Redis; use Sys::Hostname;use HTTP::Date qw(time2iso str2time time2iso time2isoz); use Net::SMTP;sub ...
转载
2015-08-11 21:59:00
102阅读
2评论
#!/usr/bin/perl -w
#
# check_squid - Nagios check plugin for testing a Squid proxy
#
# Christoph Haas (email@christoph-haas.de)
# License: GPL 2
#
# V0.2
#
use LWP::UserAgent;
use HTTP::Requ
原创
2010-01-28 16:28:59
697阅读
#!/usr/bin/perl -w use strict; use utf8; use LWP::Simple; use DBI; my $dsn = 'DBI:mysql:database=monitor;host=localhost;por
转载
精选
2012-02-10 08:24:52
694阅读
#l!/usr/bin/perl##采集系统资源use Sys::Hostname;use HTTP::Date qw(time2iso str2time time2iso time2isoz); use Ne...
转载
2015-05-11 18:04:00
194阅读
2评论
#!/usr/bin/perl $dir='/home/websphere/WebSphere/AppServer/profiles/AppSrv01/logs/server1';$file = 'SystemE...
转载
2015-03-17 10:46:00
56阅读
2评论
Perl与网络监控发现主机主要模块Net::Ping可以发送ICMP，TCP，UDP的Ping包。但该模块需要管理员权限。use Net::Ping;use Net::Netmask;my $ping=Net::Ping->new('icmp'); #需要root权限#输入掩码die $Net::Netmask::error unless my $netbloc...
原创
2022-09-30 10:18:02
113阅读
File::ChangeNotify
试过windows可以，注意filter参数
cpan例子：
use File::ChangeNotify;
my $watcher =
File::ChangeNotify->instantiate_watcher
( directories => [ '/my/path
转载
2011-08-05 12:23:45
1696阅读
!/usr/bin/perluse stri...
转载
2015-10-13 09:25:00
78阅读
2评论
[root@node01 ~]# [root@node01 ~]# cat t2.pl use LWP::UserAgent; no warnings;use LWP; use Encode; use ...
转载
2017-12-31 17:27:00
60阅读
2评论
my $dir = '/usr/local/apache-tomcat-7.0.55_8082/logs';my $SDATE = strftime("%Y-%m-%d",localtime());my $fi...
转载
2015-11-26 17:15:00
119阅读
2评论
1.yum install perl-libwww-perlyum install perl-File-Which yum install perl-DBD-MySQLyum install perl-Digest-SHA1yum install perl-Time-HiResyum install perl-Crypt-SSLeay2.测试#!/usr/bin/perl -wuse D
原创
2014-09-30 16:03:54
1129阅读
perl 监控发邮件
原创
2014-08-01 12:00:16
504阅读
根据公司需求 自己编写的perl脚本
希望可以帮到大家
#!/usr/bin/perl
while(1){
open (LOG,">> /var/log/flow.log"); &n
原创
2012-08-21 11:01:23
520阅读
一个监控mysql replication 是否同步,状态,端口,服务的小脚本.仅供参考.
#!/usr/bin/env perl use warnings; use strict; use DBI; use Net::SMTP; use Net::SMTP_auth;&n
原创
2011-09-13 17:19:04
914阅读
上次的脚本只是将监控的数据展示在终端上，这次增加了一个功能：数据展示在终端的同时，存入到数据库中
code:
#!/usr/bin/perl -w use strict; use utf8; use LWP::Simple; use DBI; my $dsn&n
原创
2011-11-04 10:42:20
933阅读
script 说明：
该脚本可以对指定的系统重要文件进行监控，当文件被查看或修改后，脚本会查看最近登陆系统的用户和IP,并发邮件通知。
#!/usr/bin/perl use strict; use Mail::Sender; use Digest::SHA; my @files=('/etc/pa
原创
2013-01-31 23:56:44
524阅读
use HTTP::Date qw(time2iso str2time time2iso time2isoz);use Net::Ping; use Socket;use Net::SMTP;sub send_...
转载
2015-06-09 17:05:00
113阅读
2评论
作为运维来监控文件的状态可以扩展很多个方面，例如rsync增量备份，监控服务器是否被黑客入侵等等。所以说监控文件的状态至关重要。根据这几天的工作的需求特别写了一个Perl脚本，有什么方面没有考虑到的希望大家多多指出。
需要安装的模块：
File::Monitor
File::Find::Rule
安装方法：
win下（需要有perl环境，我这里装的是activeperl）
cmd下进入
推荐
原创
2012-12-06 16:26:53
5480阅读
点赞
3评论
