墨迹哥's

摘要： 可能脚本会有Bug，我只是用来工作上用一下，具体有没有BUG没测。项目估计马上结束了。 这个入库的是MYSQL的。原理是先Ping，如果通的话，则加入队列，通过队列再进行SYN探测。#!/usr/bin/perluse threads;use DBI;use Thread::Queue;use Thread::Semaphore;use Net::Ping;use Term::ProgressBar;# create queuemy $q=new Thread::Queue;# read for check listmy @target=;my $se_max = Thread::Semaph 阅读全文