目录扫描编写
摘要：use HTTP::UserAgent; my $fp = open 'result.txt', :w; my @threads; #控制线程数目 sub MAIN (Str $ip, Str $dict) { # #判断是否是文件 if $dict.IO.f { #不要把文件一次进数组， 一行一行读就行 ...
阅读全文
posted @ 2017-08-29 12:40
08 2017 档案
控制并发数量
摘要：每 4 个线程， 就先等待返回线程返回。 里面的grep为了提取已完成的， 未完成的就再保存。
阅读全文
posted @ 2017-08-29 12:08
多线程中的超时， 如Socket超时
摘要：anyod里面的线程如果有一个返回 kept时， 就马上返回， 设置超时时间为 $timeout 后， 当第一个 Promise.in($timeout) 时间到达时会返回， 里面的 Socket就不能继续运行了。
阅读全文
posted @ 2017-08-29 11:31
Supply
摘要：Supplier创建一个Supply Supply有tap或emit方法。 可以这样理解： Supplier创建一个工厂 Supply 用tap创建流水线 emit向流水线上传送加工品进行加厂
阅读全文
posted @ 2017-08-29 11:27
Perl6多线程4: Promise allof / anyof
摘要：allof ： 所有代码块执行完成后才退出 anyof ：只要有一个代码块执行完后就马上退出 要配合 await 一起用： 这个代码， 只会打印出: a 这个代码会打印出: a, b
阅读全文
posted @ 2017-08-27 15:32
Perl6多线程3: Promise start / in / await
摘要：创建一个Promise 并自动运行： 如果把代码改成如下， 我们会发现什么也没打印： 匿名函数 sleep 2 秒， 这时， 它还没运行完， 主程序就退出了， 这里 promise也跟着退出， 所以什么也没打印。 我们可以改写成这样： 是不是觉得有点不太好？因为你有时并不知道程序什么时候运行完成。
阅读全文
posted @ 2017-08-27 15:31
Perl6多线程2: Promise new/keep/bread/status/result
摘要：来源于个人理解的翻译。 创建一个 promise: 可以打印运行 的Promise 状态: 上面的promise创建好后， 当 $p 状态为 kept或broken 时， 会执行 then 里面的 匿名函数。 但是， 上面的$p状态总是为： Plannd。 所以， 那个 hello, world 总
阅读全文
posted @ 2017-08-27 14:34
perl6 HTTP::UserAgent (3) JSON
摘要：如果一个 URL 要求POST数据是 JSON格式的， 那我们要怎么发送数据呢？ 第一种： 上一篇说到， 发送 POST 数据， 可以: 在这里， 无论是第一种方法还是第二种方法， 里面所发送的 %data 都会自动编码。 JSON也是一种字符串格式， 这两种方法要求%data为一个hash, 那就
阅读全文
posted @ 2017-08-26 15:25
2. 数据库文件配置与简单操作 Model / M()
摘要：官方文档说明位置： 内容说明如下: 复制放入项目的模块配置文件下：如: 最终像这样： 创建控制器与方法测试， 代码如下：
阅读全文
posted @ 2017-08-25 19:12
1. 前后台入口分开配置
摘要：前台: 后台: 如果要前后台共用 runtime/common, index.php 可以如下设置: 再在Blog_user下复制一份 Home 重命令名为 Admin后台目录即可。
阅读全文
posted @ 2017-08-25 18:28
Perl6 必应抓取(2)：最终版
摘要：说明， 在dos下输入中文， 因为终端编码问题， 程序会报错。 在linux下运行正常， 或dos下设置编为utf8。 用法： BUG: 如果bing中的结果只有 100 条， 而我们向他取 1000 条， 这时我们会取到相同的数据。 修复： 在运行前， 用bing的数据库条目与用户输入的对比。 如
阅读全文
posted @ 2017-08-25 01:54
Perl6 必应抓取(1)：测试版代码
摘要：一个相当丑漏的代码， 以后有时间再优化了。 默认所有查找都是15页， 如果结果没有15页这么多估计会有重复。速度还是很快的。 下次代码优化： 总结一下必应的规律， 如下： 在页面上测试， 参数只虽两个即可:
阅读全文
posted @ 2017-08-24 22:45
Sqlmap与burpsuite动态更新某些参数
摘要：有如下注入点： 情况说明： id为注入点， 每一次注入时， order_nu不能跟上次的一样（假说这个order_nu为一个订单号， 提交一次时会进入数据库查询是否存在，存在时直接提示订单号存在并退出， 而且它不为注入点）。 如: 解决方按： 每一次注入id参数的同时， 修改order_nu为不同的
阅读全文
posted @ 2017-08-23 09:11
sqlmap tamper编写
摘要：说明: tamper 就是 sqlmap 注入的 payload kwargs 是一些header 信息
阅读全文
posted @ 2017-08-23 08:29
perl6 Socket: 发送HTTP请求
摘要：sub MAIN(Str $host,Str $path, Int $port) { my $send = "GET $path HTTP/1.1\r\nHost: $host\r\n\r\n"; my $c = IO::Socket::INET.new(:host($host), :port($port)); $c.print: $send; while (my $buff ...
阅读全文
posted @ 2017-08-23 07:07
perl6正则 4: before / after 代码断言: <?{}> / <!{}>
摘要：对应的取反分别为: 除了before after, 还有就是代码块类的： <?{code }> <!{code }>
阅读全文
posted @ 2017-08-22 23:50
perl6正则 3: 行开头与结尾与多行开头，多行结尾
摘要：^ $ 匹配一行的开头或结尾， 可以用 ^ 或 $。 对于多行的情况， 可以用 ^^ 或 $$。
阅读全文
posted @ 2017-08-22 23:47
perl6正则 2: 字母，数字，空格，下划线， 字符集
摘要：数字， 字母， 下划线 在perl6中， 如果是 数字， 字母， 下划线, 在正则里可以正接写上。 非数字， 字母， 下划线 如果不是数字、字母、 下划线， 可以用 \ 反斜线转义， 或用单、双相号包围。 空格 空格默认是忽略的， 比如， /ab cde/ 相等于 /abcde/。 <[]> / <
阅读全文
posted @ 2017-08-22 23:35
perl6正则 1: ~~ , //, m//, rx//
摘要：~~ perl6 中， 要匹配一个正则， 使用 ~~ 智能匹配符。 // 或 m 模式中， 默认用 // ， 如果要改变， 像perl5一样加 m前缀就行。 rx// 如果我们要把正则保存到一个变量中， 可以用 rx // 创建一个表达式。
阅读全文
posted @ 2017-08-22 22:59
perl6 Socket
摘要：Perl6 中的SOCKET就是相当于Perl5 的 IO::Socket::INET。 官方介绍如下： 我们使用时， 设置我们要用的就行， 对于其他参数， 让其默认即可。 服务端： 客户端： my $conn = IO::Socket::INET.new(:host<localhost>, :po
阅读全文
posted @ 2017-08-21 10:55
