摘要：
这几天忙着做项目和一些W3A的测试,没啥时间研究别的.今天趁着快放假,也给自己放放假吧.看了下云总写的Perl爬虫,发现有多处不懂.但是部分地方算是理解了,看来目标还是很遥远的.给代码加了下注释,不过太累的,准备睡觉了..写了部分,改天补全..凑合着看吧....#!/usr/bin/perluse strict;use warnings;use threads;use threads::shared;use Thread::Queue;use Thread::Semaphore; use Bloom::Filter;use URI::URL;use Web::Scraper;# 设置线程数量 阅读全文
摘要：
今天研究了下，记录下来。#!/usr/bin/perl use Coro; use AnyEvent::HTTP; my @coro; foreach my $i (1..1000){ push @coro, async{ http_get 'http://www.baidu.com', cb => Coro::rouse_cb; print "开始并发$i...\n"; my @res = Coro::rouse_wait; print "$i返回结果$res[1]-... 阅读全文
摘要：
今天在改进一个模块的功能,记录下一段代码.1,'数据名称'=>2), array('数据类型'=>1,'数据名称'=>2), array('数据类型'=>1,'数据名称'=>2)));print json_encode($a); 阅读全文
摘要：
在搞某站发现的，虽然过滤很严谨，但是还是被我改包绕过去了。但是在前端用这个还是不错的。// valid.js//数据若为“>”、“= "a") || (first = "A")) { return true; } else { return false; }}//数据若为“>”、“" || para_number.charAt(i) == "'") { return false; } } return true;}//数据若不为字符，则返回false，否则返回truefunction charValid( 阅读全文
摘要：
找到一个HTML生成Word的。。记录下。(\s*.*?\s*)/i' , '$1' , $content); //去掉链接 $images = array(); $files = array(); $matches = array(); //这个算法要求src后的属性值必须使用引号括起来 if ( preg_match_all('//i',$content ,$matches ) ) { $arrPath = $matches[1]; for ( $i=0;$iAddContents("tmp.html",$mht->Get. 阅读全文