摘要：来源于个人理解的翻译。 创建一个 promise: 可以打印运行 的Promise 状态: 上面的promise创建好后， 当 $p 状态为 kept或broken 时， 会执行 then 里面的 匿名函数。 但是， 上面的$p状态总是为： Plannd。 所以， 那个 hello, world 总 阅读全文

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

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

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

摘要：~~ perl6 中， 要匹配一个正则， 使用 ~~ 智能匹配符。 // 或 m 模式中， 默认用 // ， 如果要改变， 像perl5一样加 m前缀就行。 rx// 如果我们要把正则保存到一个变量中， 可以用 rx // 创建一个表达式。 阅读全文

摘要：Perl6 中的SOCKET就是相当于Perl5 的 IO::Socket::INET。 官方介绍如下： 我们使用时， 设置我们要用的就行， 对于其他参数， 让其默认即可。 服务端： 客户端： my $conn = IO::Socket::INET.new(:host<localhost>, :po 阅读全文

摘要：use HTTP::UserAgent; my $ua = HTTP::UserAgent.new; my $r = HTTP::Request.new; my $c = HTTP::Cookies.new; $c.set-cookie('Set-Cookie:JSESSIONID=06617AD9F324C7D49D3218D800B8FBB6'); my $url = 'http://t... 阅读全文

摘要：先看一个小例子: 这是正常的调用方式。 再看如下代码: 可以看到， 当函数没参数时， 可以直接用 B() 来调用，如果有参数时， 可以 A() / &A() 调用。 再看一下例子： 从上例可以看出， &A / &B 并不是调用函数， 而是显示这个函数的地址(也就是这个函数的代码块形式)。 这个 &B 阅读全文

摘要：代码如下： 使用前请安装好 perl6 再用zef安装好所用的模块： 效果如下: 一般来说， 查不到CMS或服务器系统信息， 就返回未知(Unknown) 有时没法转换JSON时会出错， 下次有时间再改版一下。 阅读全文

摘要：测试站点: http://www.yutian.com.cn/index.action http://www.hjxzyzz.com:8088/pfw/login.action 代码如下: POC如下(也就是上面代码的 data.txt 文件内容): 注意这个POC是一整串字符串， 没有换行的， 如 阅读全文

摘要：http://www.cnblogs.com/perl6/p/6911166.html 之前这里有个小小例子， 这里只要是总结一下。 HTTP::UserAgent包含了以下模块: HTTP::UserAgent -> 创建一个浏览器($ua) HTTP::Cookies -> 设置COOKIE H 阅读全文

摘要：运行效果如下所示: 这个 X 操作符实在太方便了。 里面的phpmyadmin改成你要破解的地址 username.txt / password.txt 改成你要的字典就行。 阅读全文

摘要：use HTTP::UserAgent; my $ua = HTTP::UserAgent.new; my $url = 'http://localhost/phpMyAdmin/index.php'; #$ua.cookies.set-cookie('Set-Cookie:phpMyAdmin=4vd2oee7t866juc4mhdgh1f2krfjrg19; pma_lang=zh_CN... 阅读全文

摘要：安全狗版本为: apache 4.0 网站为: php+mysql 系统: win 2003 这里只要是fuzz /*!union 跟 select*/ 之间的内容: 位置很多可以选择。 脚本语言你可以用你喜欢的，　我这里用perl6 让我们一步步来。 枸造 exp 我用如下代码(代码测试用): 字 阅读全文

摘要：第一种方法， 直接写在源码中： 另一种方法， 在views目 录下创健 404.xx 或 500.xx。 阅读全文

摘要：q不内插 qq内插 qx不内插 qqx内插 阅读全文

摘要：先看一个例子: 一个变量保存html源码， 用request.params<name>获取用户输入， 再连接后输出 那什么叫模板呢， 个人觉得， 一个是为了代码重用， 二个是我们可以在模板文件中嵌入perl语句 一般来说， 直接引用模板用如下语法就行: 默认地， perl6中的bailador把模板 阅读全文

摘要：这是一个写批量的原型 关键点是修改smbtouch中的IP地址 持续修改IP地址就是批量版本 perl6里没找到原地修改文件的方 法， 这里用的是： 1. 把文件读进一个变量 2. 替换IP 3. 把变量写进配置文件进行覆盖 你起码要有一个smbtouch 的exe测试文件(这些文件在nsa里有)， 阅读全文

摘要：还有一个替换方法为: s 小写的 s 会在原字符串上操作。 大写的 S 一般用作无损替换。 阅读全文

摘要：use v6; use Bailador; get '/' => sub { ' String: ' } #这个get对应表单的get, 如果是post改为相应的post get '/string' => sub { my $i... 阅读全文