perl 练习1

graceful 方式 用tcp syn一下 ,  可是    若是远端主机端口没开或这个主机根本不存在 可能须要等待很长的时间  在shell下面能够用expect工具来实现timeout ,还好在perl里面 也有Expect这个模块. 安装Expect模块 perl -MCPAN -e 'install Expect'   扫描 scan.pl #!/usr/bin/perl use IO:

>>阅读原文<<