上一页 1 2 3 4 5 6 7 8 ··· 19 下一页

2017年8月27日

Perl6多线程3: Promise start / in / await

摘要: 创建一个Promise 并自动运行: 如果把代码改成如下, 我们会发现什么也没打印: 匿名函数 sleep 2 秒, 这时, 它还没运行完, 主程序就退出了, 这里 promise也跟着退出, 所以什么也没打印。 我们可以改写成这样: 是不是觉得有点不太好?因为你有时并不知道程序什么时候运行完成。 阅读全文

posted @ 2017-08-27 15:31 Perl6 阅读(254) 评论(0) 推荐(0) 编辑

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 阅读(250) 评论(0) 推荐(0) 编辑

2017年8月26日

perl6 HTTP::UserAgent (3) JSON

摘要: 如果一个 URL 要求POST数据是 JSON格式的, 那我们要怎么发送数据呢? 第一种: 上一篇说到, 发送 POST 数据, 可以: 在这里, 无论是第一种方法还是第二种方法, 里面所发送的 %data 都会自动编码。 JSON也是一种字符串格式, 这两种方法要求%data为一个hash, 那就 阅读全文

posted @ 2017-08-26 15:25 Perl6 阅读(301) 评论(0) 推荐(0) 编辑

2017年8月25日

2. 数据库文件配置与简单操作 Model / M()

摘要: 官方文档说明位置: 内容说明如下: 复制放入项目的模块配置文件下:如: 最终像这样: 创建控制器与方法测试, 代码如下: 阅读全文

posted @ 2017-08-25 19:12 Perl6 阅读(182) 评论(0) 推荐(0) 编辑

1. 前后台入口分开配置

摘要: 前台: 后台: 如果要前后台共用 runtime/common, index.php 可以如下设置: 再在Blog_user下复制一份 Home 重命令名为 Admin后台目录即可。 阅读全文

posted @ 2017-08-25 18:28 Perl6 阅读(206) 评论(0) 推荐(0) 编辑

Perl6 必应抓取(2):最终版

摘要: 说明, 在dos下输入中文, 因为终端编码问题, 程序会报错。 在linux下运行正常, 或dos下设置编为utf8。 用法: BUG: 如果bing中的结果只有 100 条, 而我们向他取 1000 条, 这时我们会取到相同的数据。 修复: 在运行前, 用bing的数据库条目与用户输入的对比。 如 阅读全文

posted @ 2017-08-25 01:54 Perl6 阅读(236) 评论(0) 推荐(0) 编辑

2017年8月24日

Perl6 必应抓取(1):测试版代码

摘要: 一个相当丑漏的代码, 以后有时间再优化了。 默认所有查找都是15页, 如果结果没有15页这么多估计会有重复。速度还是很快的。 下次代码优化: 总结一下必应的规律, 如下: 在页面上测试, 参数只虽两个即可: 阅读全文

posted @ 2017-08-24 22:45 Perl6 阅读(369) 评论(0) 推荐(0) 编辑

2017年8月23日

Sqlmap与burpsuite动态更新某些参数

摘要: 有如下注入点: 情况说明: id为注入点, 每一次注入时, order_nu不能跟上次的一样(假说这个order_nu为一个订单号, 提交一次时会进入数据库查询是否存在,存在时直接提示订单号存在并退出, 而且它不为注入点)。 如: 解决方按: 每一次注入id参数的同时, 修改order_nu为不同的 阅读全文

posted @ 2017-08-23 09:11 Perl6 阅读(252) 评论(0) 推荐(0) 编辑

sqlmap tamper编写

摘要: 说明: tamper 就是 sqlmap 注入的 payload kwargs 是一些header 信息 阅读全文

posted @ 2017-08-23 08:29 Perl6 阅读(822) 评论(0) 推荐(0) 编辑

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 阅读(251) 评论(0) 推荐(0) 编辑

上一页 1 2 3 4 5 6 7 8 ··· 19 下一页

导航