摘要：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 链接无法打开。如果有这情况 阅读全文

摘要：use Net::HTTP::Request; use Net::HTTP::URL; use Net::HTTP::Transport; my $url = Net::HTTP::URL.new("http://localhost/sqli-labs-master/Less-1/?id=2%"); my $request = Net::HTTP::Request.new(:$url,... 阅读全文

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

摘要：新版 firefox 中的 hackbar 没有 order by 字段填写， 所以就有了这个: 阅读全文

摘要：# command with arguments my $proc = Proc::Async.new('whoami'); # subscribe to new output from out and err handles: $proc.stdout.tap(-> $v { print "Use 阅读全文

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

摘要：如下命安装必要的包: sudo apt install libssl1.0.0 libssl-dev zef install IO::Socket::SSL zef install Net::HTTP 阅读全文

摘要：1 > my %h = 1,2,3,4 2 {1 => 2, 3 => 4} 3 > my $a = :%h 4 h => {1 => 2, 3 => 4} 5 > $a.perl 6 :h({"1" => 2, "3" => 4}) 7 > my %h2 = 'a','b' 8 {a => b} 9 > my $a = :%h,:%h2 10 (h => {1 => 2, 3... 阅读全文

摘要：只做个笔记， 用 HTTP::UserAgent 的话, url 中有特殊点的符号会请求不了， 用 Net::HTTP 能很好的发送请求。 $html 返回的是 Buf 数据， 记得decode。 阅读全文

摘要：use Net::HTTP::GET; use Base64; my %header = :Cookie; #my $response = Net::HTTP::GET("http://172.16.57.128/zentaopms/www/index.php?m=editor&f=edit&filePath=YzpccGhwc3R1ZHlcV1dXXHplbnRhb3Btc1x3d3dc... 阅读全文

摘要：这个 :g 只能写在外面 m:g /re/ 阅读全文

摘要：也就是可以把多种要匹配的写进[ ] 中， 第种用 | 分开就行了。 | 与 || 有差别 |的话， 当匹配位置 相同时， 会取最长的， 而 || ， 当前面的匹配成功， 后面的就不会再去匹配。 注意 [] 跟 <[]> 是不同的: 阅读全文

摘要：use HTTP::UserAgent; my $fp = open 'result.txt', :w; my @threads; #控制线程数目 sub MAIN (Str $ip, Str $dict) { # #判断是否是文件 if $dict.IO.f { #不要把文件一次进数组， 一行一行读就行 ... 阅读全文

摘要：每 4 个线程， 就先等待返回线程返回。 里面的grep为了提取已完成的， 未完成的就再保存。 阅读全文

摘要：anyod里面的线程如果有一个返回 kept时， 就马上返回， 设置超时时间为 $timeout 后， 当第一个 Promise.in($timeout) 时间到达时会返回， 里面的 Socket就不能继续运行了。 阅读全文

摘要：Supplier创建一个Supply Supply有tap或emit方法。 可以这样理解： Supplier创建一个工厂 Supply 用tap创建流水线 emit向流水线上传送加工品进行加厂 阅读全文

摘要：allof ： 所有代码块执行完成后才退出 anyof ：只要有一个代码块执行完后就马上退出 要配合 await 一起用： 这个代码， 只会打印出: a 这个代码会打印出: a, b 阅读全文

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