libfile-slurper-perl/bench/layers.pl

#! /usr/bin/env perl

use 5.010;
use strict;
use warnings;

use Benchmark 'cmpthese', ':hireswallclock';

sub read_text {
	my ($filename, $layers) = @_;
	open my $fh, "<$layers", $filename or die "Can't open $filename:#!";
	my $foo = do { local $/; <$fh> };
	return;
}

sub read_lines {
	my ($filename, $layers) = @_;
	open my $fh, "<$layers", $filename or die "Can't open $filename:#!";
	my @foo = <$fh>;
	return;
}

my $filename = shift // 'test.txt';
my $count = shift // 200;
my $encoding = shift // 'utf-8';

say "Read utf8 encoded Unix text file, decode with :encoding\n";
cmpthese($count, {
	':encoding'        => sub { read_text($filename, ':encoding(utf-8-strict)') },
	':encoding:perlio' => sub { read_text($filename, ':encoding(utf-8-strict):perlio') },
});

say "\nRead utf8 encoded Unix text file into lines, decode with :encoding\n";
cmpthese($count, {
	':encoding'        => sub { read_lines($filename, ':encoding(utf-8-strict)') },
	':encoding:perlio' => sub { read_lines($filename, ':encoding(utf-8-strict):perlio') },
});

say "Read utf8 encoded Windows text file, decode with :encoding\n";
cmpthese($count, {
	'c:e'       => sub { read_text($filename, ":crlf:encoding(utf-8-strict)") },
	'c:p:e'     => sub { read_text($filename, ":crlf:perlio:encoding(utf-8-strict)") },
	'u:c:e'     => sub { read_text($filename, ":unix:crlf:encoding(utf-8-strict)") },
	'u:c:p:e'   => sub { read_text($filename, ":unix:crlf:perlio:encoding(utf-8-strict)") },
	'u:c:e:p'   => sub { read_text($filename, ":unix:crlf:encoding(utf-8-strict):perlio") },
	'u:c:p:e:p' => sub { read_text($filename, ":unix:crlf:perlio:encoding(utf-8-strict):perlio") },
	'c:p:e:p'   => sub { read_text($filename, ":crlf:perlio:encoding(utf-8-strict):perlio") },
	'e:c'       => sub { read_text($filename, ":raw:encoding(utf-8-strict):crlf") },
	'e:c:p'     => sub { read_text($filename, ":raw:encoding(utf-8-strict):crlf:perlio") },
	'e:p:c:p'   => sub { read_text($filename, ":raw:encoding(utf-8-strict):perlio:crlf:perlio") },
});


say "\nRead utf8 encoded text file, decode with :utf8_strict\n";
cmpthese($count * 10, {
	':utf8_strict'             => sub { read_text($filename, ":utf8_strict") },
	':unix:utf8_strict'        => sub { read_text($filename, ":unix:utf8_strict") },
	':unix:utf8_strict:perlio' => sub { read_text($filename, ":unix:utf8_strict:perlio") },
});

say "\nRead utf8 encoded text file with optional crlf line endings, decode with :utf8_strict\n";
cmpthese($count * 10, {
	':crlf:utf8_strict'        => sub { read_text($filename, ":crlf:utf8_strict") },
	':utf8_strict:crlf'        => sub { read_text($filename, ":utf8_strict:crlf") },
	':utf8_strict:crlf:perlio' => sub { read_text($filename, ":utf8_strict:crlf:perlio") },
	':utf8_strict:perlio'      => sub { read_text($filename, ":utf8_strict:perlio") },
	':utf8_strict'             => sub { read_text($filename, ":utf8_strict") },
});

say "\nRead lines of utf8 encoded text file with optional crlf line endings, decode with :utf8_strict\n";
cmpthese($count * 10, {
	':crlf:utf8_strict'        => sub { read_lines($filename, ":crlf:utf8_strict") },
	':utf8_strict:crlf'        => sub { read_lines($filename, ":utf8_strict:crlf") },
	':utf8_strict:crlf:perlio' => sub { read_lines($filename, ":utf8_strict:crlf:perlio") },
	':utf8_strict:perlio'      => sub { read_lines($filename, ":utf8_strict:perlio") },
	':utf8_strict'             => sub { read_lines($filename, ":utf8_strict") },
});

say "\nRead text file doing crlf translation\n";
cmpthese($count * 10, {
	':unix:crlf'        => sub { read_text($filename, ":unix:crlf") },
	':unix:crlf:perlio' => sub { read_text($filename, ":unix:crlf:perlio") },
#	':unix'             => sub { read_text($filename, ":unix") },
#	':raw'              => sub { read_text($filename, ":raw") },
});

say "\nRead text file into lines doing crlf translation\n";
cmpthese($count * 10, {
	':unix:crlf'        => sub { read_lines($filename, ":unix:crlf") },
	':unix:crlf:perlio' => sub { read_lines($filename, ":unix:crlf:perlio") },
#	':raw'              => sub { read_lines($filename, ":raw") },
});