程序调用远端服务，为了确保可用性最好在使用前进行健康检测，将异常的服务排除。 #!/usr/bin/perl # use strict; use IO::Socket; my...