- 博客(1)
- 资源 (9)
- 收藏
- 关注
原创 linux perl——发送邮件及监控内存
#!perl use warnings; use strict; use Net::SMTP_auth; #&sendMail; while(1) { my ($sumMem, $freeMem, $rateMem); open MEM, "cat /proc/meminfo |" or die $!; while() { $sumMem = $1 if(/MemTotal:\s+
2015-01-30 09:29:51 1815
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人