Perl Coro初体检

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

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

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

 

#!/usr/bin/perluse 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 open\n"; } $scan->close(); }

总结

以上是内存溢出为你收集整理的Perl Coro初体检全部内容，希望文章能够帮你解决Perl Coro初体检所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。