Perl Coro初体检

发布时间：2020-12-16 00:01:41 所属栏目：大数据来源：网络整理

导读：蛮纠结的，本想着后天出差的时候可以用。结果还是不行，还是用多线程吧。原生的东西应该都是比较好的。：（ ? # !/usr/bin/perl use Coro; # use Net::Ping; use AnyEvent::Ping:: TCP; my @check_list ; my @target = ; foreach my $ip ( @target ){ forea

蛮纠结的，本想着后天出差的时候可以用。

结果还是不行，还是用多线程吧。原生的东西应该都是比较好的。：（

#!/usr/bin/perl

use Coro; #use Net::Ping;
use AnyEvent::Ping::TCP; my @check_list; my @target=<>; foreach my $ip (@target){ foreach my $port (1..65535){ push @check_list,async{ nex($ip,$port); } }; }; foreach (@check_list){ $_->join; }; sub nex{ ($ip,$port)=@_; $scan=Net::Ping->new('syn',3); $scan->port_number($port); $scan->ping($ip); if($scan->ack){ print "ip:$ip port:$port openn"; } $scan->close(); }

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!