2017年8月29日

目录扫描编写

摘要： 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 Perl6 阅读(304) 评论(0) 推荐(1) 编辑

控制并发数量

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

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

多线程中的超时， 如Socket超时

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

posted @ 2017-08-29 11:31 Perl6 阅读(363) 评论(0) 推荐(0) 编辑

Supply

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

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

导航