UNIX环境设置监听端口的脚本

我们在做系统维护的时候，有时候会遇到开通某个网络端口后需要验证，但是因为各种原因端口没有打开不知道该怎么去验证的情
况。
这是个看似简单，但实际操作起来却让人头疼的“小问题”。以前在做项目的时候，当时亚联的老蔡大拿提供了一个用perl写的脚本，未经许可，擅自转载希望老蔡不要找我麻烦

如下：
# cat socket.pl_20
#!/usr/bin/perl -w
use strict;
use Socket;
my $port=50001;
my $address=sockaddr_in($port,INADDR_ANY);
socket(MY_SERVER,AF_INET,SOCK_STREAM,getprotobyname('tcp')) || die ("No socket");
bind(MY_SERVER,$address) || die ("Can't bind ");
listen(MY_SERVER,10) || die("Can't listen");

while(1)
{
next unless(accept(MY_CLIENT,MY_SERVER) || die ("Can't accept"));
my $msg=;;
print("$msg\n");
close MY_CLIENT;
}
close MY_SERVER;
exit 1;

将第三行中的port参数设置为指定需要测试的端口，然后使用perl在前台执行该脚本即可。测试完成后，使用Ctrl+C中断运行即可

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/23850820/viewspace-1087824/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/23850820/viewspace-1087824/