1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
#!/usr/bin/perl
use strict;
use warnings;
use HTTP::Entity::Parser;
use HTTP::Body;
use Benchmark qw/:all/;
my $content1 = 'xxx=hogehoge&yyy=aaaaaaaaaaaaaaaaaaaaa';
my $content2 = 'xxx=hogehoge&yyy=aaaaaaaaaaaaaaaaaaaaa&%E6%97%A5%E6%9C%AC%E8%AA%9E=%E3%81%AB%E3%81%BB%E3%82%93%E3%81%94&%E3%81%BB%E3%81%92%E3%81%BB%E3%81%92=%E3%81%B5%E3%81%8C%E3%81%B5%E3%81%8C';
my $content3 = join '&', map { "$_=%E3%81%B5%E3%81%8C%E3%81%B5%E3%81%8C%E3%81%B5%E3%81%8C%E3%81%B5%E3%81%8C%E3%81%B5%E3%81%8C%E3%81%B5%E3%81%8C" } 'A'..'R';
my $parser = HTTP::Entity::Parser->new;
$parser->register('application/x-www-form-urlencoded','HTTP::Entity::Parser::UrlEncoded');
for my $content ($content1, $content2, $content3) {
print "\n## content length => ", length($content) . "\n\n";
cmpthese(timethese(-1, {
'http_entity' => sub {
open my $input, '<', \$content;
my $env = {
'psgi.input' => $input,
'psgix.input.buffered' => 1,
CONTENT_LENGTH => length($content),
CONTENT_TYPE => 'application/x-www-form-urlencoded',
};
$parser->parse($env);
},
'http_body' => sub {
open my $input, '<', \$content;
my $body = HTTP::Body->new( 'application/x-www-form-urlencoded', length($content) );
$input->read( my $buffer, 16384);
$body->add($buffer);
$body->param;
}
}));
}
__END__
## content length => 38
Benchmark: running http_body, http_entity for at least 1 CPU seconds...
http_body: 1 wallclock secs ( 1.07 usr + 0.00 sys = 1.07 CPU) @ 33494.39/s (n=35839)
http_entity: 1 wallclock secs ( 1.08 usr + 0.00 sys = 1.08 CPU) @ 79643.52/s (n=86015)
Rate http_body http_entity
http_body 33494/s -- -58%
http_entity 79644/s 138% --
## content length => 177
Benchmark: running http_body, http_entity for at least 1 CPU seconds...
http_body: 2 wallclock secs ( 1.01 usr + 0.00 sys = 1.01 CPU) @ 14193.07/s (n=14335)
http_entity: 1 wallclock secs ( 1.01 usr + 0.00 sys = 1.01 CPU) @ 70969.31/s (n=71679)
Rate http_body http_entity
http_body 14193/s -- -80%
http_entity 70969/s 400% --
## content length => 1997
Benchmark: running http_body, http_entity for at least 1 CPU seconds...
http_body: 1 wallclock secs ( 1.06 usr + 0.00 sys = 1.06 CPU) @ 1950.00/s (n=2067)
http_entity: 1 wallclock secs ( 1.10 usr + 0.00 sys = 1.10 CPU) @ 35543.64/s (n=39098)
Rate http_body http_entity
http_body 1950/s -- -95%
http_entity 35544/s 1723% --
|
