perl 監控端口

use IO::Socket; use HTTP::Date qw(time2iso str2time time2iso time2isoz); use Net::SMTP; ##監控8081 sub check_server_alive { ( $server, $port ) = @_; $sock = IO::Socket::INET->new(PeerAddr => $ser

>>阅读原文<<