perl 监控数据变化

!/usr/bin/perl use strict; use DBI; use HTTP::Date qw(time2iso str2time time2iso time2isoz); use Net::SMTP; sub send_mail{ if (@_ != 2){print “请输入2个参数\n”;exit 1}; ( m, n) = @_; #将参数赋值给变量 my toaddress=

>>阅读原文<<