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
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
|
#!/usr/bin/perl
use strict;
use warnings;
use Benchmark qw/:all/;
use URI;
use URI::Escape;
use URL::Encode::XS qw/url_encode/;
use WWW::Form::UrlEncoded::XS qw/build_urlencoded/;
my $base = q!http://api.example.com!;
my $path = q!/path/to/endpoint!;
my %param = (
token => 'b a r',
message => 'foo bar baz hoge hoge hoge hoge hogehoge',
hoge => '日本語ですよー',
arrayref => [qw/1 2 5/]
);
warn build_urlencoded(
s_id => 1,
type => 'foo',
hoge => "bar",
%param
);
cmpthese(timethese(-2, {
'use_uri' => sub {
my $uri = URI->new($base . $path);
$uri->query_form(
s_id => 1,
type => 'foo',
%param
);
$uri->as_string;
},
'concat_uri_escape' => sub {
my @qs = (
s_id => 1,
type => 'foo',
%param
);
my $uri = $base . $path . '?';
while ( @qs ) {
my $k = shift @qs;
my $v = shift @qs;
if ( ref $v && ref $v eq 'ARRAY') {
$uri .= uri_escape($k) . '='. uri_escape($_) . '&' for @$v;
}
else {
$uri .= uri_escape($k) . '='. uri_escape($v) . '&'
}
}
substr($uri,-1,1,"");
$uri;
},
'concat_url_encode_xs' => sub {
my @qs = (
s_id => 1,
type => 'foo',
%param
);
my $uri = $base . $path . '?';
while ( @qs ) {
my $k = shift @qs;
my $v = shift @qs;
if ( ref $v && ref $v eq 'ARRAY') {
$uri .= url_encode($k) . '='. url_encode($_) . '&' for @$v;
}
else {
$uri .= url_encode($k) . '='. url_encode($v) . '&'
}
}
substr($uri,-1,1,"");
$uri;
},
'build_urlencoded_xs' => sub {
my $uri = $base . $path . '?' . build_urlencoded(
s_id => 1,
type => 'foo',
%param
);
$uri;
},
'use_uri2' => sub {
my $uri = URI->new($base . $path . "?" . build_urlencoded(
s_id => 1,
type => 'foo',
%param
));
$uri->as_string;
},
}));
__END__
Benchmark: running build_urlencoded_xs, concat_uri, concat_url_encode_xs, use_uri for at least 2 CPU seconds...
build_urlencoded_xs: 2 wallclock secs ( 2.08 usr + 0.00 sys = 2.08 CPU) @ 482635.58/s (n=1003882)
concat_uri: 3 wallclock secs ( 2.21 usr + 0.00 sys = 2.21 CPU) @ 19460.18/s (n=43007)
concat_url_encode_xs: 3 wallclock secs ( 2.12 usr + 0.00 sys = 2.12 CPU) @ 119165.09/s (n=252630)
use_uri: 2 wallclock secs ( 2.17 usr + 0.00 sys = 2.17 CPU) @ 12387.10/s (n=26880)
Rate use_uri concat_uri concat_url_encode_xs build_urlencoded_xs
use_uri 12387/s -- -36% -90% -97%
concat_uri 19460/s 57% -- -84% -96%
concat_url_encode_xs 119165/s 862% 512% -- -75%
build_urlencoded_xs 482636/s 3796% 2380% 305% --
|
