perl post 请求加请求头的方法

大佬教程收集整理的这篇文章主要介绍了perl post 请求加请求头的方法，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

perl post 请求加请求头

在perl开发中，如何通过perl语言进行post请求加请求头的方法，今天分享给大家。希望对你有所帮助。

##给文件加星标
use  LWP::UserAgent; 
use LWP;
use Encode;
use LWP::Simple;
use LWP::UserAgent;
use http::Cookies;
use http::Headers;
use http::response;
use Encode;
use URI::Escape;
use URI::URL;
use JSON;
use Data::Dumper;
  my $ua = LWP::UserAgent->new;
     $ua->agent("Mozilla/5.0 (Windows NT 6.1; rv:30.0) Gecko/20100101 Firefox/30.0");
  my $cookie_jar = http::Cookies->new(
     file=>'lwp_cookies.txt',
     autosave=>1,
     ignore_discard=>1);
     $ua->cookie_jar($cookie_jar);
   my $token_url= 'http://127.0.0.1:8000/api2/auth-token/';
                
   my $res = $ua->post($token_url,
                {
                'username'=>'015208@zjtlcb.com',
                'password'=>'1234567'
                });
   print $res->content();
   print "\n";
      my $r= $res->content();
   my $r=encode_utf8($r);
   my $hash = decode_json($r);
   my $token =$hash->{"token"};
   print "\$r is $r\n";
   
   my $url="http://127.0.0.1:8000/api2/starredfiles/";
   my $res = $ua->post($url,
                {
                'Repo_id'=>'2e90c188-a605-41ce-854a-833f5196728b',
				 'p'=>'/aa'
                },
				'accept'=> "application/json; indent=4",  
    'content-type'=> "application/x-www-form-urlencoded",  
    'Authorization'=> "Token  $token" 
				);
   print $res->content();
   print "\n";
   print $res->status_line();

大佬总结

以上是大佬教程为你收集整理的perl post 请求加请求头的方法全部内容，希望文章能够帮你解决perl post 请求加请求头的方法所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。