ITPub博客

首页 > Linux操作系统 > Linux操作系统 > UNIX环境设置监听端口的脚本

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

原创 Linux操作系统 作者:charsi 时间:2014-02-25 11:46:18 0 删除 编辑

我们在做系统维护的时候,有时候会遇到开通某个网络端口后需要验证,但是因为各种原因端口没有打开不知道该怎么去验证的情
况。
这是个看似简单,但实际操作起来却让人头疼的“小问题”。以前在做项目的时候,当时亚联的老蔡大拿提供了一个用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/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2010-05-04

  • 博文量
    96
  • 访问量
    358394