用perl发送http请求

工作中经常用到脚本发送http请求，但是用脚本发送和用浏览器发送差别很到，当你用脚本调用一些接口时可能没有权限，此时需要获取到调用接口的权限，一般情况下就是。请求的时候需要带着一个cookie值或者一个token值，浏览器发送时一般都会保存这个值，但是脚本发送不知道保存在那个地方还是不会生成（知道的小伙伴告诉我一声），但是一般的做法是带着用户名和密码去请求，服务器给你回复一个cookie值，然后下一次调用接口的时候就带着这个cookie值去请求；

获取cookie值

```sub getCookie{    my($ip，$port)=@_;    my  $ua = LWP::UserAgent->new(         protocols_allowed => [ 'http', 'https' ],         timeout           => 30,          ssl_opts => { verify_hostname => 0},        );    $username='admin';    $password='admin';#密码有没经过加密处理，如果经过加密处理要写加密后的    my $arg={                'username' => $username,                'password' => $password,             };     $url="https://$ip:$port/vapi/extjs/access/ticket";#url可以抓包获取，不是登录的那个地址    my  $resp = $ua->post($url,$arg,'Content_Type' => 'form-data');#用post方法提交参数    my $status=$resp->status_line;    my $header=$resp->headers_as_string;#解析头部    my $content = $resp->content;    if ($status=~ /200/)    {        @array=split(/\n/,$header);        foreach $rock (@array)        {            if ($rock=~/^Set-Cookie/)            {                @Setcookie=split(/\s+/,$rock);                $Setcookie[1]=~s/;$//;                my $cookie=$Setcookie[1];                $content=$cookie;                last;            }        }    }         return $content;}

发送get请求

调用上面的getcookie函数，获取cookie值sub https_Get { my ( $url,$cookie) = @_; my $ua = LWP::UserAgent->new(            protocols_allowed => [ 'http', 'https' ],            timeout           => 30,            ssl_opts => { verify_hostname => 0 },        ); $ua->default_header('cookie' => "$cookie" ); my $response = $ua->get($url); return $response->{_content};}

发送post请求

sub https_Post{    my($url,$arg,$cookie) = @_; #arg为需要提交的参数         my  $ua = LWP::UserAgent->new(         protocols_allowed => [ 'http', 'https' ],         timeout           => 30,          ssl_opts => { verify_hostname => 0},        );        $ua->default_header('cookie' => "$cookie" );        $resp = $ua->post($url,$arg,'Content_Type' => 'form-data');  #注意参数的格式是form-data还是其他格式，可用postman（一款模拟发送http请求的插件，只可以在谷歌浏览器中用）调试      $content = $resp->content;        return $content;    }