HTTPS経由で接続すると、LWPでメモリリークが発生したと思います。次のスクリプトを使用すると、メモリ使用量が絶えず増加します。
use LWP::UserAgent;
$ua = LWP::UserAgent->new();
$request = HTTP::Request->new(GET=>'https://www.google.com/');
while (1) {
$response = $ua->request($request);
sleep(1);
}
この他のスクリプトには問題はありません。
use LWP::UserAgent;
$ua = LWP::UserAgent->new();
$request = HTTP::Request->new(GET=>'http://www.google.com/'); # https => http
while (1) {
$response = $ua->request($request);
sleep(1);
}
Perl 5.12.3 / LWP 5.837 / Crypt :: SSLeay 0.58 / Mac OS X 10.7.4
誰かがこれを回避する方法を知っていますか?
アップデート
Perl 5.12.4 / LWP 6.05 / Crypt :: SSLeay 0.64 / Mac OS X 10.8.4
HTTPSを介して接続する場合、メモリリークは依然として存在します。試してみるには、ターミナルでサンプルスクリプトを実行し、ActivityMonitorでメモリが増えていくのを確認してください。
アップデート
いくつかのテストの結果、最近のライブラリのアップグレードでは、まだメモリリークが発生していることがわかりましたが、HTTPSを介して特定のアドレスを呼び出した場合にのみ発生します。上記の例では、https://www.google.comに電話をかけていましたが、これはたまたまそれらのアドレスの1つです。たとえば、このコードではメモリリークは発生しません。
use LWP::UserAgent;
$ua = LWP::UserAgent->new();
$request = HTTP::Request->new(GET=>'https://twitter.com/'); # www.google.com => twitter.com
while (1) {
$response = $ua->request($request);
sleep(1);
}
アップデート
私はバグを報告し、他の何人かの人々が私の発見を確認しました: https ://rt.cpan.org/Ticket/Display.html?id=88287