摘要：
我就直接贴代码了。没做什么注释，因为还在修改，目前还有点不太理解，跑去看了下云舒的代码，感觉那个应该有点启发。回头好好修改下。这些多线程模块还有点不太熟悉，主要跟进程弄乱了。得好好琢磨下，如果可以改成别的就更爽了。不过他们都说perl多线程不靠谱。。汗。。#!/usr/bin/perluse Net::Ping;use threads;use threads::shared;system('clear');print "please set the IP(C):";chomp($ip=<STDIN>);print "StartIP:&q 阅读全文
摘要：
看了一些前辈的多线程文章，感觉理解了差不多了。就写了这个小程序。这个程序有点乱，不过没有时间整理写注释，回头有空写成mode吧。#!/usr/bin/perluse threads;use Net::Ping;$p=Net::Ping->new();sub slep_ping{ local($host_ip)=shift; if($p->ping($host_ip)) { print "$host_ip is access---------OK!\n"; }else{ print "$host_ip is No access\n"; } $p 阅读全文
摘要：
加了一些注释，主要是为了复习一些包的使用。还有多线程的一些使用方法。#!/usr/bin/perluse Getopt::Long; #这个包使用来做选项用的use threads; #这个是线程包use Thread::Semaphore; #这个是线程信号量控制使用的包use Smart::Comments; #这个会在用FOREACH 的时候弄出进度条..不过没成功使用...use Net::Ping; #这个是主角，也是ping的使用包use threads::shared; #用于线程当中共享变量use Socket; #用于端口扫描#设定接受选项 -thread设置线程... 阅读全文
摘要：
纯属手贱写着玩。。。这几天心情比较郁闷。所以动手写了下。#!/usr/bin/perluse HTTP::Request;use LWP::UserAgent;use Getopt::Long;use threads;use Thread::Semaphore;use Socket;print "-------------------\n";print "-----WebScan-------\n";print "-----XiaoCon-------\n";print "-------------------\n" 阅读全文
摘要：
#!/usr/bin/perluse LWP::Simple;use threads;use Thread::Semaphore;#先下载文件下来.$k='321935'.'.html';while( 1 ){$url="http://xxx/Html/Book/0/549/$k";$page=getstore($url,"$k"); if($page=='200'){ print "[*] $url_name[7] 下>载成功! [*]\n"; print "[*] 对 阅读全文