Perl AnyEvent::Socket

还是在不断的改写做尝试。

做了些小记录把。方便以后翻。。

#!/usr/bin/perl

use Coro;
use AnyEvent::Socket;
use AnyEvent::Ping::TCP;
my @check_list;
my @target=<>;
foreach my $ip (@target){
   foreach my $port (1..65535){
      push @check_list,async{
            $a=tcp_connect $ip => $port, sub {
                  my $fh = shift
                 or die "unable to connect: $!";
            };
            if(!$a){
               print "$port open\n";
            }
         # $result=tcp_ping_ack $ip,$port;
   #     nex($ip,$port);
      }
   };
};

这个脚本貌似不太成功,链接成功的就没有提示,不知道为什么。

判断的基准没找到。

你可能感兴趣的:(Perl AnyEvent::Socket)