0

$c->header("content") でテストしますが、何も表示しませんが、コンテンツハッシュ値の場合は.

_content を表示できますか?

ハッシュ

<pre>
$VAR1 = bless(
    {
        '_protocol' => 'HTTP/1.1',
        '_content'  => '-----------------------------8283483225031
Content-Disposition: form-data; name="archivo"; filename="GFWLIVESetupLog.txt"
Content-Type: text/plain

  l i v e R e d i s t :   0
 G F W L C l i e n t :   0

-----------------------------8283483225031
Content-Disposition: form-data; name="destino"

C:/perl/test.txt
-----------------------------8283483225031--
',
        '_uri' => bless(
            do {
                \(
                    my $o =
                      'http://localhost/shell.php?uploa
d='
                );
            },
            'URI::http'
        ),
        '_headers' => bless(
            {
                'user-agent' => 'Mozilla/5.0 (Windows NT
 5.1; rv:19.0) Gecko/20100101 Firefox/19.0',
                'accept' => 'text/html,application/xhtml
+xml,application/xml;q=0.9,*/*;q=0.8',
                'accept-language' => 'es-ar,es;q=0.8,en-
us;q=0.5,en;q=0.3',
                'cookie' => 'PHPSESSID=a8bkktvsripf6agpi
fnma61qq4',
                'content-length' => '378',
                'host'           => 'localhost',
                'via'            => '1.1 doddy-701c8cb49 (HTTP::Pro
xy/0.20)',
                'content-type' => 'multipart/form-data;
boundary=---------------------------8283483225031',
                'x-forwarded-for' => '127.0.0.1',
                'referer'         => 'http://localhost/shell.php
?upload='
            },
            'HTTP::Headers'
        ),
        '_method' => 'POST'
    },
    'HTTP::Request'
);

</pre>

起源 ：

use HTTP::Proxy;
use HTTP::Proxy::BodyFilter::simple;
use HTTP::Proxy::BodyFilter::complete;
use Data::Dumper;

my $server = HTTP::Proxy->new(port=>8080);
$server->host();

$server->push_filter(mime=>undef,response => HTTP::Proxy::BodyFilter::complete->new());

$server->push_filter(
mime=>undef,
request=>HTTP::Proxy::BodyFilter::simple->new(\&enable),
response => HTTP::Proxy::BodyFilter::simple->new(\&enable2));

$server->start();

sub enable {

    my($a,$b,$c,$d,$e) = @_;

print $c->header("content");

    #print Dumper $c;

}

sub enable2 {
 my ($j,$k,$l,$m,$n) = @_;
  print $$k;
}

pd : 下手な英語で失礼します

4

1 に答える 1

1

コンテンツはヘッダーにありません。ダンパー出力では、ヘッダーはキーHTTP::Headersによって示されるオブジェクトです。_headersメソッドを呼び出したいcontent。

$c->content;

利用可能なメソッドの完全なリストについては、 HTTP::Request ドキュメントを参照してください。

于 2013-04-06T01:31:51.233 に答える