文章详情

  • 游戏榜单
  • 软件榜单
关闭导航
热搜榜
热门下载
热门标签
php爱好者> php文档>perl 练习1

perl 练习1

时间:2006-04-23  来源:ruiqingzheng

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

#!/usr/bin/perl
use IO::Socket::INET;

exit unless $tghost = shift ;
exit unless $tgport = shift ;
if ($socket = IO::Socket::INET->new("$tghost:$tgport")) {
        print "ok\n";
        close($socket);
} else {
        close($socket);
        die ;
}

再写一个 expect的脚本 主体如下 主要为了控制timeout

#my $spawn_ok;
#my $timeout= 2 ;
#my $exp = Expect->spawn("./scan.pl $host $port")
#       or die "Cannot spawn scan.pl $!\n";
#
#$exp->expect ($timeout,
#       [
#               'ok',
#               sub
#               {
#                       $spawn_ok="ok";
#                       exp_continue;
#               }
#       ],
#       [
#               timeout=>
#               sub
#               {
#                       print "time out\n";
#               }
#       ]
#
#);
~

相关阅读 更多 +
排行榜 更多 +
冒名顶替者战争

冒名顶替者战争

策略塔防 下载
SUPERSTAR STARSHIP

SUPERSTAR STARSHIP

音乐节奏 下载
解压大师

解压大师

音乐节奏 下载