perl load cookie 登录铜板街

use LWP::UserAgent;use HTTP::Cookies;use HTTP::Headers;use HTTP::Response;use Encode;use JSON;use File::Temp qw/tempfile/;my $ua = LWP::UserAgent->new;$ua->timeout(10);$ua->env_proxy;my $now          = time();$ua->agent("Mozilla/8.0");my $cookie_jar = HTTP::Cookies->new(    file           => 'lwp_cookies.txt',    autosave       => 1,    ignore_discard => 1);   $ua->cookie_jar($cookie_jar);   my $str=(rand(1));   if ( $cookie_jar){   $cookie_jar->load( $cookie_jar );   my $now          = time();   my $url="https://trade.tongbanjie.com/trade/web/member/assets/myassets.html";   my $response = $ua->get("$url");   if ($response->is_success) {       #print $response->content;        $r = $response->content;          $str=encode("gbk",decode("utf8","$r"));   print "\$str is $str\n";   }};       if ($str =~/请输入手机号码/){    print "重新登录\n";   sleep 2;   #system ("del/f/s/q c:\wj_qrcod*.jpg");   ##https://account.tongbanjie.com/generateImageCode?t=1418707487753    ##生成图形验证码接口   my $response = $ua->get("https://account.tongbanjie.com/generateImageCode?t=$now");      if ($response->is_success) {       $r = $response->decoded_content;          # print $response->decoded_content;  # or whatever       }    else {      die $response->status_line;};    my ( $fh, $filename ) =    tempfile( "tbj_qrcode_XXXX", SUFFIX => ".jpg", DIR => 'c:\\' );    binmode $fh;    print $fh $r;    close $fh;my $name="登录二维码已经下载到本地";print "$name  [ $filename ] \n";##打开图片    system("start $filename ");  my $validCode = <STDIN>;    print "\$validCode is $validCode\n";    chomp $validCode;##https://account.tongbanjie.com/tongdun/generatetokenid?callback=jQuery17202876698913366518_1490256391708&_=1490256391996##生成tokenmy $url="https://account.tongbanjie.com/tongdun/generatetokenid?callback=jQuery17202876698913366518_$now&_=$now";my $response = $ua->get("$url");    if ($response->is_success) {      $r = $response->decoded_content;         print $response->decoded_content;  # or whatever  }; if ($r =~ /jQuery.*{"tongduntokenid":"(.*?)"}/){$tongduntokenid=$1};     print "\$tongduntokenid is $tongduntokenid\n";  my $login_url = 'https://login.tongbanjie.com/web/submitlogin';                     my $res = $ua->post($login_url,{                       'MOBILE_DEVICE'=>'PC',                          'password'=>'xxxxx',                           'phone'=>'18072722237',                          'pictureCode'=> $validCode,  # 'redirectUrl' =>"https://www.tongbanjie.com/",   't'=>"$now",   'tongduntokenid'=>"$tongduntokenid"                                                });my $response = $ua->get("https://trade.tongbanjie.com/trade/web/member/assets/myassets.html");            if ($response->is_success) {            $r = $response->content;               $str=encode("gbk",decode("utf8","$r"));            print "\$str is $str\n";};};