On Saturday, April 04, 2015 17:49:56 Nick Knutov wrote:
> Обновил https://gist.github.com/knutov/8c9077790f925f1e336f

Интересовала часть про utf8. Как на счёт такого:

open_utf8_on => sub {open my $fh, "<", $file;  read($fh, $buf, -s $fh); 
Encode::_utf8_on($buf); }

грубый бенчмарк на первом попавшемся файле:

cmpthese(50000, {
slurp => sub {$buf = File::Slurp::read_file($file, binmode => ":utf8")},  
open_utf8_on => sub {open my $fh, "<", $file;  read($fh, $buf, -s $fh); 
Encode::_utf8_on($buf); }
});

         Rate slurp  open
slurp 16129/s    --  -51%
open  33113/s  105%    --
-- 
PEF Developer
-- 
Moscow.pm mailing list
[email protected] | http://moscow.pm.org

Ответить