Select Code to Download

#!/usr/bin/env perl

...
    y_sprintf => sub { my $str = sprintf('%.2g', 3.14) =~ y/./,/r; ret
+urn $str; },
    s_sprintf => sub { my $str = sprintf('%.2g', 3.14) =~ s/\./,/r; re
+turn $str; },
};

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