Perl多线程ping加端口扫描

加了一些注释，主要是为了复习一些包的使用。还有多线程的一些使用方法。html   #!/usr/bin/perl use Getopt::Long; #这个包使用来作选项用的 use threads; #这个是线程包 use Thread::Semaphore; #这个是线程信号量控制使用的包 use Smart::Comments; #这个会在用FOREACH 的时候弄出进度条..不过

>>阅读原文<<