0

ファイルのダウンロードには特別なケースがあります。大きなファイルのチャンク ダウンロードを行う必要があり、ダウンロードの前にパラメータを CGI スクリプトに渡す必要もあります。

これは実際には REST インターフェースです。インターネットでいろいろ調べてみたところ、ダウンロード部分もパラメータ部分もいろいろあるのですが、まとめてみるとエラーが出てしまいます。また、同様の方法で POST を実行すると、正常に動作することにも注意してください。ここに私のコードスニップがあります:

# $filename, $target, $url, $bs, etc. are all set...
my $bytes_received = 0;

open (FH, ">", "$filename") or $logger->error("Couldn't open $filename for writing: $!" );
my $ua = LWP::UserAgent->new();
my $res = $ua->get(
    $url,
    ':content_cb' => \&callback,
    'Content' => {
    "api" => 'olfs',
    "cmd" => 'rfile',
    "target" => $target,
    "bs" => $bs});

    print $logger->info("$bytes_received bytes received");

sub callback{
    my($chunk, $res) = @_;
    $bytes_received += length($chunk);
    print FH $chunk;
}

エラーは次のとおりです。

Not a SCALAR reference at /usr/local/share/perl5/HTTP/Message.pm line 163.
 at /usr/local/share/perl5/HTTP/Message.pm line 163
    HTTP::Message::add_content('HTTP::Request=HASH(0x1956a88)', 'HASH(0x7fdfda565e88)') called at /usr/local/share/perl5/HTTP/Request/Common.pm line 111
    HTTP::Request::Common::_simple_req(undef, undef) called at /usr/local/share/perl5/HTTP/Request/Common.pm line 20
    HTTP::Request::Common::GET('http://10.0.0.15:8084/cgi-bin/olss.cgi', 'Content', 'HASH(0x7fdfda565e88)') called at /usr/local/share/perl5/LWP/UserAgent.pm line 410
    LWP::UserAgent::get('LWP::UserAgent=HASH(0x191a220)', 'http://10.0.0.15:8084/cgi-bin/olss.cgi', ':content_cb', 'CODE(0x1845818)', 'Content', 'HASH(0x7fdfda565e88)') called at ./olfs_get.pl line 72
Debugged program terminated.  Use q to quit or R to restart,
  use o inhibit_exit to avoid stopping after program termination,
  h q, h R or h o to get additional info.
  DB<3> print oct("764")
500
  DB<4>
4

1 に答える 1

1

$ua->get( $url )
$ua->get( $url , $field_name => $value, ... )

このメソッドは、指定された $url で GET リクエストをディスパッチします。追加の引数を指定して、リクエストのヘッダーを初期化できます。

Contentヘッダーのようなものはありません。->postこれを使用してメッセージ本文を作成しますが、これは GET 要求には使用されません。URL を作成する場合は、 URIを使用できます。

$ua->post( $url, $field_name => $value,... Content => \%form )
$ua->post( $url, $field_name => $value,... Content => \@ form )
$ua->post( $url, $field_name => $value,... Content => $content )

于 2013-10-31T00:26:03.907 に答える