墨迹哥's

摘要： 还是在不断的改写做尝试。做了些小记录把。方便以后翻。。#!/usr/bin/perluse Coro;use AnyEvent::Socket;use AnyEvent::Ping::TCP;my @check_list;my @target=;foreach my $ip (@target){ foreach my $port (1..65535){ push @check_list,async{ $a=tcp_connect $ip => $port, sub { my $fh = shift ... 阅读全文

摘要： 坑爹的Coro。。想要用协程比较坑爹，还要自己改写。瞬间就疯了。。没办法的情况下，研究了下它的模块代码，具体如下：sub tcp_ping_syn { my $host = shift; my $port = shift; my $timeout = shift || 5; if ((++$PingQueue{$host}{$port}{Requests}) > 1) { # Ping already underway... return; } my $cv = AnyEvent->condvar; my $... 阅读全文

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

摘要： 继续研究云总的代码时，发现很纠结的问题。再看代码，试着单月测试的方法研究，始终输出的是数组，感觉不会再爱了。。。。先把上午的活干完，晚上飞机走人了。。#!/usr/bin/perluse URI::URL;use Web::Scraper;use Data::Dumper;my $base_url="http://www.cnblogs.com/";my $host=URI::URL->new($base_url)->host;print "host:$host\n";$scraper=scraper{ process '//a 阅读全文

摘要： 根据实际的逻辑,综合了各家所长,我决定手工测试下,是否能够写出满意的爬虫.对此还是写出来看看,一边写一边思考,今天写了一点,等回家继续想想.根据逻辑思考,我觉得应该使用队列,和BS算法做基础,还要做链接索引.其中最难的莫过于链接索引了,这个东西还是得思考下的.现在还没想好,等等再看吧.#!/usr/bin/perluse LWP::Simple;use HTML::LinkExtor;use threads;use threads::shared;use Thread::Queue;use Thread::Semaphore;use Bloom::Filter;$base_url=" 阅读全文