鼻が詰まって困ってます LWPやFurlを使ってインターネットから様々なファイルをダウンロードする。よくやりますよね。その際に大きなファイルをGETしてしまい、perlのプロセスがメモリを大量に使い、OOM Killerに殺されて2年経つ、なんて経験をした人もきっと多いはず。 そこで使うのがレスポンスをファイルに書き出す技。Furlであれば my $furl = Furl->new(); open my $fh, '>', $filename; $furl->request( url => 'http://example.com/4k.jpg', write_file => $fh ); my $size = -s $fh; seek($fh, 0, 0); と書けて、$filenameのファイルに大きな画像データが保存されます。 しかし、取得対象とするデータが、大きなファイルから小さいフ
![HTTPクライアントとStream::Bufferedの合わせ技 - Qiita](https://cdn-ak-scissors.b.st-hatena.com/image/square/4dcb4ca8e69ad53bb5ba4aab9b19475814ee99c6/height=288;version=1;width=512/https%3A%2F%2Fqiita-user-contents.imgix.net%2Fhttps%253A%252F%252Fcdn.qiita.com%252Fassets%252Fpublic%252Fadvent-calendar-ogp-background-f625e957b80c4bd8dd47b724be996090.jpg%3Fixlib%3Drb-4.0.0%26w%3D1200%26mark64%3DaHR0cHM6Ly9xaWl0YS11c2VyLWNvbnRlbnRzLmltZ2l4Lm5ldC9-dGV4dD9peGxpYj1yYi00LjAuMCZ3PTkxNiZoPTMzNiZ0eHQ9SFRUUCVFMyU4MiVBRiVFMyU4MyVBOSVFMyU4MiVBNCVFMyU4MiVBMiVFMyU4MyVCMyVFMyU4MyU4OCVFMyU4MSVBOFN0cmVhbSUzQSUzQUJ1ZmZlcmVkJUUzJTgxJUFFJUU1JTkwJTg4JUUzJTgyJThGJUUzJTgxJTlCJUU2JThBJTgwJnR4dC1jb2xvcj0lMjMzQTNDM0MmdHh0LWZvbnQ9SGlyYWdpbm8lMjBTYW5zJTIwVzYmdHh0LXNpemU9NTYmdHh0LWNsaXA9ZWxsaXBzaXMmdHh0LWFsaWduPWxlZnQlMkNtaWRkbGUmcz02Njg1ODU1MTA4ZTdjMGFlODc0YzYzODNlNzNjYTA3Nw%26mark-x%3D142%26mark-y%3D151%26blend64%3DaHR0cHM6Ly9xaWl0YS11c2VyLWNvbnRlbnRzLmltZ2l4Lm5ldC9-dGV4dD9peGxpYj1yYi00LjAuMCZ3PTYxNiZ0eHQ9JTQwa2F6ZWJ1cm8mdHh0LWNvbG9yPSUyMzNBM0MzQyZ0eHQtZm9udD1IaXJhZ2lubyUyMFNhbnMlMjBXNiZ0eHQtc2l6ZT0zNiZ0eHQtYWxpZ249bGVmdCUyQ3RvcCZzPTQzNzU3MDcxNTgxZDZjZTcwOWYxMjgyMTIzYmI0ZDlj%26blend-x%3D142%26blend-y%3D491%26blend-mode%3Dnormal%26s%3D40240372440f3f16d56a7b93a240967b)