HTTP::UserAgent注意问题

例用 HTTP::Request 设置头信息时， 比如 add-content ， 第二次再执行 add-content 时， content 内容会追加， 并不会重新添加。

当下次再 add-content 时， 要使用 clear 清空一次。

清空后 head/cookie 之类的也要重新添加。

而且例用 add-content 添加 post 数据时， 要添加一个头:

:Content-Type<application/x-www-form-urlencoded; charset=UTF-8>

 要查看数据包内容， 可以用 .Str 查看:

$request.Str

 

比如:

use HTTP::UserAgent;
my $ua = HTTP::UserAgent.new;
my $req = HTTP::Request.new;
my @table = [];
my $file = open 'all_table_py.txt', :a;
my @allchars = |(0..9),|('a'..'z'),|('@','.','-','_');
my $url = 'URL';
my $cookie = HTTP::Cookies.new;
$cookie.set-cookie('Set-Cookie:PHPSESSID=r4af8rgmikhka305c45gf76oc6');

for 0..1000 -> $start {
#
      for 1..50  -> $number {

            ...

            for @allchars -> $char  {
                  $req.clear;
                  #这里有个for , 每次使用前清空一下再重新添加
                  ...
                  ...
                  my $data = "POST_DATA'";
                  
                 ...
            
                  $req.uri: $url;
                  $req.add-cookies($cookie);

                  $req.header.field(:Content-Type<application/x-www-form-urlencoded; charset=UTF-8>,:X-Requested-With<XMLHttpRequest>,:Referer<OTHER_URL>);

                  $req.add-content($data);
                  say $req.Str;
                  ... 

相似文章:

https://www.cnblogs.com/perl6/p/9080886.html