perl - :content_file オプションを使用せずに応答をファイルとして処理するにはどうすればよいですか?

Question

コード例:

my $ua = LWP::UserAgent->new;  
my $response = $ua->get('http://example.com/file.zip');
if ($response->is_success) {
    # get the filehandle for $response->content
    # and process the data
}
else { die $response->status_line }

コンテンツをディスクに保存せずにファイルとして開く必要があります。これをどのように行いますか？

Answer 1

スカラーを指す偽のファイルハンドルを開くことができます。file 引数がスカラー参照の場合、Perl はスカラーの内容をファイル名ではなくファイル データとして扱います。

open my $fh, '<', $response->content_ref;

while( <$fh> ) { 
    # pretend it's a file
}

Answer 2

完全なファイルではありませんが、関連する SO の質問を次に示します。純粋な Perl で別の HTTP リソースからストリーミングする最も簡単な方法は何ですか?