我有这个简单的 PSGI 应用程序 (app.psgi)。
use strict;
use warnings;
my $app = sub {
my $mem = `ps -o rss= -p $$`;
$mem =~ s/^\s*|\s*$//gs;
return [ 200, [ 'Content-Type' => 'text/text' ], [ $mem ]];
};
我被请求了上述 1000 次,并且内存使用量增加了。根据服务器的启动方式,得到:
plackup
- 内存使用量在前 3 个请求时增加,并在接下来的 997 个请求中保持不变plackup -r
- 内存使用量随机增加(不是每次请求)4k。starman
- 像上面一样,内存使用量随机增加 4k,但速度较慢
问题是:
- 为什么要提高内存使用率?泄漏在哪里,以及如何实现恒定的内存使用(尤其是在 starman 上),因为我不希望长期内存不足。(好的,可以定义例如 --max-requests 100),但这不是内存使用的答案。
- 或者- 我的例子有什么问题?
如果有人也想测试这个 - 这是我的抓取脚本:
use strict;
use warnings;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => 'http://localhost:5000');
my $old_mem = 0;
print "req#\tmem\n";
foreach my $i (1..1000) {
my $res = $ua->request($req);
(my $mem = $res->content) =~ s/\D//g;
next if( $mem == $old_mem );
print "$i\t$mem\n";
$old_mem = $mem;
}
我的结果:
plackup plackup -r starman
req# mem req# mem req# mem
1 7780 1 3924 1 3280
2 7800 2 4296 5 3728
3 7804 3 4304 8 3280
... ...
... deleted ... deleted
... ...
839 4596 994 3912
866 4600 998 3908
962 4604 1000 3912
所以,
- 为什么要
plackup
提出前 3 个请求? plackup -r
- 4k 增加(见最后几行) - 一开始更多starman
- 也加薪,但默认 5 个工人的速度较慢(3280->3912)
版本:
# cpanm Plack Starman
Plack is up to date. (0.9979)
Starman is up to date. (0.2010)
# perl -v
This is perl 5, version 12, subversion 3 (v5.12.3) built for darwin-thread-multi-2level