#!/usr/bin/env perl

use 5.016;
use warnings;

use Benchmark 'cmpthese';
use POSIX 'locale_h';

say POSIX::setlocale(LC_NUMERIC);
say sprintf('%.2g', 3.14);
say sprintf('%.2g', 3.14) =~ s/\./,/r;
say sprintf('%.2g', 3.14) =~ y/./,/r;

cmpthese 0 => {
    sprintf => sub { my $str = sprintf('%.2g', 3.14); return $str; },
    y_sprintf => sub { my $str = sprintf('%.2g', 3.14) =~ y/./,/r; return $str; },
    s_sprintf => sub { my $str = sprintf('%.2g', 3.14) =~ s/\./,/r; return $str; },
};

##</code><code>##

$ ./pm_11119934_bench_locale_s_y.pl
en_AU.UTF-8
3.1
3,1
3,1
                Rate s_sprintf y_sprintf   sprintf
s_sprintf  2940825/s        --      -46%      -85%
y_sprintf  5493603/s       87%        --      -72%
sprintf   19713322/s      570%      259%        --