perl -e 'use IO::Socket;$s=IO::Socket::INET->new(PeerAddr =>"192.1681.1",PeerPort =>80,Timeout=>1,Proto =>"tcp") || die "$!"'
转载于:https://my.oschina.net/xueyi28/blog/1186428
perl -e 'use IO::Socket;$s=IO::Socket::INET->new(PeerAddr =>"192.1681.1",PeerPort =>80,Timeout=>1,Proto =>"tcp") || die "$!"'
转载于:https://my.oschina.net/xueyi28/blog/1186428