摘要：use Net::HTTP::GET; my @chars = ; my $count = 0; for @chars X @chars X @chars X @chars -> $check { my $target_check = $check.join; my $url = "http://www.xxxxxx?ID=11733)"~$target_chec... 阅读全文

摘要：下面为测试是否存在漏洞的脚本: 为 True 时表示存在漏洞。 关键字查找可以用这个脚本: 必应关键字查找 查找结果后处理 URL 可以用如下脚本: 把以上处理过的文本导入进行批量检测最终脚本为: 注意: 当打印结果为 Error 时， 可能是爬虫出问题， 或者是 url 链接无法打开。如果有这情况 阅读全文

摘要：例用 HTTP::Request 设置头信息时， 比如 add-content ， 第二次再执行 add-content 时， content 内容会追加， 并不会重新添加。 当下次再 add-content 时， 要使用 clear 清空一次。 清空后 head/cookie 之类的也要重新添加。 阅读全文

摘要：相似文章: https://www.cnblogs.com/perl6/p/9404952.html 阅读全文

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

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

摘要：use HTTP::UserAgent; my $ua = HTTP::UserAgent.new; say 'All method:'; say $ua.^methods; my %data = :cmd('whoami'); my $result = $ua.post('http://localhost/1.php', %data); say $result.content; 阅读全文