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=

>>阅读原文<<