perl写的一个端口扫描

#!/usr/bin/perl -w use IO::Socket; #载如IO::Socket包 use threads; use threads::shared;mysql my $thread_number: shared = 0;sql #############################请求参数设置################################## $timeou

>>阅读原文<<