#!/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% --