1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
|
$foo = bless( {
'_previous' => bless( {
'_protocol' => 'HTTP/1.1',
'_content' => '',
...
'_headers' => bless( {
'client-response-num' => 1,
'cache-control' => 'private',
'set-cookie' => 'ASPSESSIONIDSQCRRBRD=JCEDHNDCGIBFHHBNLKGADIHF; path=/',
'location' => '<a href="http://www.developpez.com/'," target="_blank">http://www.developpez.com/',</a>
'date' => 'Wed, 24 May 2006 15:34:15 GMT',
'client-peer' => '127.0.0.1:80',
'content-length' => '0',
'client-date' => 'Wed, 24 May 2006 15:34:15 GMT',
'content-type' => 'text/html',
'server' => 'Microsoft-IIS/5.1'
}, 'HTTP::Headers' ),
'_msg' => 'Moved Permanently',
'_request' => bless( {
'_content' => '',
'_uri' => bless( do{\(my $o = 'http://127.0.0.1/')}, 'URI::http' ),
'_headers' => bless( {
'user-agent' => 'libwww-perl/5.805'
}, 'HTTP::Headers' ),
'_method' => 'GET'
}, 'HTTP::Request' ) |
Partager