perl lwp 默认的请求头

</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' );