墨迹哥's

摘要： 蛮纠结的，本想着后天出差的时候可以用。结果还是不行，还是用多线程吧。原生的东西应该都是比较好的。：（#!/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;};s... 阅读全文