perl lwp 默认的请求头

来源：互联网发布：免费数据库有哪些编辑：程序博客网时间：2024/06/07 19:30
</pre><pre name="code" class="html">[root@dr-mysql01 ~]# cat getx.pl use LWP::UserAgent; $ua = LWP::UserAgent->new;# @header = (#    'accept'=> "application/json",#    'content-type'=> "application/json",   #'apix-key'=> "e7b00871640c49567a37566ccd5c27e9",   # 'User-Agent' => "Mozilla/8.0"   # );$ua->agent('Mozilla/999.0');$host="http://zjcap.cn";$request = HTTP::Request->new(GET=>"$host");#$request->header(@header);use Data::Dumper;print Dumper($ua); my $hdrs = $request->headers;print Dumper($hdrs);[root@dr-mysql01 ~]# perl getx.pl $VAR1 = bless( {                 'max_size' => undef,                 'max_redirect' => 7,                 'ssl_opts' => {                                 'verify_hostname' => 1                               },                 'def_headers' => bless( {                                           'user-agent' => 'Mozilla/999.0'                                         }, 'HTTP::Headers' ),                 'no_proxy' => [],                 'proxy' => {},                 'handlers' => {                                 'response_header' => bless( [                                                               {                                                                 'line' => '/usr/local/perl/lib/site_perl/5.22.1/LWP/UserAgent.pm:684',                                                                 'callback' => sub { "DUMMY" },                                                                 'm_media_type' => 'html',                                                                 'owner' => 'LWP::UserAgent::parse_head'                                                               }                                                             ], 'HTTP::Config' )                               },                 'use_eval' => 1,                 'show_progress' => undef,                 'protocols_allowed' => undef,                 'requests_redirectable' => [                                              'GET',                                              'HEAD'                                            ],                 'local_address' => undef,                 'timeout' => 180,                 'protocols_forbidden' => undef               }, 'LWP::UserAgent' );$VAR1 = bless( {}, 'HTTP::Headers' );
0 0