天道酬勤,学无止境

perl学习笔记

perl dancer + net::ssh2监控服务器性能

最近一直在看dancer,发现真心好用,之前在看mojo,搞了好久没有搞懂.只能怪自己太挫了.作为练手就写了一套简易的监控系统,主要是利用net::ssh2模块监控AIX服务器的CPU,IO负载,还有磁盘空间.当然如果你是linux/unix作为监控服务器简易使用net::ssh:perl 或者使用SNMP来获取服务器信息.在lib下添加login.pmpackage 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

2021-03-26 19:54:03    分类:博客    监控系统   dancer   perl学习笔记

perl中tr的研究

perl中有三种模式 m// ,s///,tr///; 前两种就不多说了,经常出现。这里说下tr: 很多人用习惯了s///,发现和tr有很多相同的地方,都是将字符串替换成自己想要的内容。 tr的重要作用在于“转换”. 例如: 大小写转化: $str = "Hello World"; $str =~ tr/a-zA-Z/A-Za-z/; #这里是将大写转为小写,小写转化为大写 print $str; #输出hELLO wORLD 计算字符串的个数: $str = "Hello World"; my $count=$str =~ tr/a-z/a-z/; #这里只计算小写字母的出现个数,大写写出A-Z print $count; # 输出8 关于tr的修饰符有三个: /c,/d./s perldoc这样解释: c Complement the SEARCHLIST. d Delete found but unreplaced characters. s Squash duplicate replaced characters. $str = "Hello World"; $str =~ tr/ll/*/c; #将不是l或者ll全部转化成* print $str; #输出**ll*****l* $str = "Hello World"; $str =~ tr/ll/*/d;

2021-03-26 19:14:04    分类:博客    perl   perl tr   perl学习笔记