最近一直在看dancer,发现真心好用,之前在看mojo,搞了好久没有搞懂.只能怪自己太挫了.

作为练手就写了一套简易的监控系统,主要是利用net::ssh2模块监控AIX服务器的CPU,IO负载,还有磁盘空间.当然如果你是linux/unix作为监控服务器简易使用net::ssh:perl 或者使用SNMP来获取服务器信息.

在lib下添加

login.pm

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
package login;
use Dancer ':syntax';
use Net::SSH2;
use Data::Dumper;
$| = 1;
prefix '/monitor';
my $envMon = {
    NST => {
        '192.168.1.100' => [ 'user', 'passwd' ],
        '192.168.1.101' => [ 'user', 'passwd' ],
          '192.168.1.102' => [ 'user', 'passwd' ],
   },
    UAT => {
       '192.168.1.103' => [ 'user', 'passwd' ],
       '192.168.1.104' => [ 'user', 'passwd' ],
    }
};
sub mon {
    my ( $host, $user, $passwd, $env ) = @_;
    my @monArr;
    my $monOut;
    my $ssh2 = Net::SSH2->new();
    my $row;
    $ssh2->connect("$host") or die "$!";
    if ( $ssh2->auth_password( "$user", "$passwd" ) ) {
        my $chan = $ssh2->channel();
        # $chan->blocking(1);
        $chan->shell();
        #monitor memory useage
  这款是监控内存,因为linux/unix内存机制都是有多少用多少,所以就去掉了
        # print $chan "svmon -G\n";
        #
        

鲜花
握手
雷人
路过
鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
More+
上一篇：
Perl命令常用选项发布时间：2022-07-22
下一篇：
perl数组变量（Array）转载发布时间：2022-07-22
热门推荐
More+
热门话题
More+
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服（服务时间 9:00～18:00）

在线QQ客服
地址：深圳市南山区西丽大学城创智工业园
电邮：jeky_zhao#qq.com
移动电话：139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap