The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

 / 
Bencher-Scenarios-IOFilterModules-0.003
River stage one • 1 direct dependent • 1 total dependent
/ Bencher::Scenario::IOFilterModules::Writing

NAME

Bencher::Scenario::IOFilterModules::Writing - Benchmark writing with filter that does nothing

VERSION

This document describes version 0.003 of Bencher::Scenario::IOFilterModules::Writing (from Perl distribution Bencher-Scenarios-IOFilterModules), released on 2017-01-25.

SYNOPSIS

To run benchmark with default option:


            

              
              
% bencher -m IOFilterModules::Writing

To run module startup overhead benchmark:


            

              
              
% bencher --module-startup -m IOFilterModules::Writing

For more options (dump scenario, list/include/exclude/add participants, list/include/exclude/add datasets, etc), see bencher or run bencher --help.

DESCRIPTION

Each participant will write chunk_size bytes (0, 1, and 1024) for 1000 times.

Packaging a benchmark script as a Bencher scenario makes it convenient to include/exclude/add participants/datasets (either via CLI or Perl code), send the result to a central repository, among others . See Bencher and bencher (CLI) for more details.

BENCHMARKED MODULES

Version numbers shown below are the versions used when running the sample benchmark.

PerlIO::via::as_is 0.001

Text::OutputFilter 0.20

Tie::Handle::Filter 0.011

BENCHMARK PARTICIPANTS

  • Text::OutputFilter (perl_code)

    Code template:

    
            
    
              
              
    open *FH0, ">", <tempfile> or die "Can't open: $!";
    tie  *FH , "Text::OutputFilter", 0, *FH0, sub { $_[0] };
    my $chunk = "a" x <chunk_size>;
    for (1..1000) { print FH $chunk }
    close FH;
    die "Incorrect file size" unless (-s <tempfile>) == <chunk_size> * 1000;

  • Tie::Handle::Filter (perl_code)

    Code template:

    
            
    
              
              
    open *FH0, ">", <tempfile> or die "Can't open: $!";
    tie  *FH , "Tie::Handle::Filter", *FH0, sub { @_ };
    my $chunk = "a" x <chunk_size>;
    for (1..1000) { print FH $chunk }
    close FH;
    die "Incorrect file size" unless (-s <tempfile>) == <chunk_size> * 1000;

  • PerlIO::via (perl_code)

    Code template:

    
            
    
              
              
    open my($fh), ">:via(as_is)", <tempfile>;
    my $chunk = "a" x <chunk_size>;
    for (1..1000) { print $fh $chunk }
    close $fh;
    die "Incorrect file size" unless (-s <tempfile>) == <chunk_size> * 1000;

  • raw (perl_code)

    Code template:

    
            
    
              
              
    open my($fh), ">", <tempfile>;
    my $chunk = "a" x <chunk_size>;
    for (1..1000) { print $fh $chunk }
    close $fh;
    die "Incorrect file size" unless (-s <tempfile>) == <chunk_size> * 1000;

BENCHMARK DATASETS

  • chunk_size=0

  • chunk_size=1

  • chunk_size=1024

SAMPLE BENCHMARK RESULTS

Run on: perl: v5.24.0, CPU: Intel(R) Core(TM) M-5Y71 CPU @ 1.20GHz (2 cores), OS: GNU/Linux LinuxMint version 17.3, OS kernel: Linux version 3.19.0-32-generic.

Benchmark with default options (bencher -m IOFilterModules::Writing):


            

              
              
#table1#
+---------------------+-----------------+-----------+-----------+------------+-----------+---------+
| participant         | dataset         | rate (/s) | time (ms) | vs_slowest |  errors   | samples |
+---------------------+-----------------+-----------+-----------+------------+-----------+---------+
| Text::OutputFilter  | chunk_size=1024 |       2.7 |   370     |          1 |   0.00078 |      20 |
| Text::OutputFilter  | chunk_size=0    |      70   |    10     |         30 |   0.0007  |      20 |
| Tie::Handle::Filter | chunk_size=1024 |     290   |     3.5   |        110 | 4.9e-06   |      20 |
| PerlIO::via         | chunk_size=1024 |     302   |     3.32  |        111 | 2.2e-06   |      20 |
| raw                 | chunk_size=1024 |     360   |     2.8   |        130 | 6.7e-06   |      20 |
| Text::OutputFilter  | chunk_size=1    |     560   |     1.8   |        210 | 5.5e-06   |      21 |
| Tie::Handle::Filter | chunk_size=1    |    1300   |     0.76  |        480 | 3.1e-06   |      20 |
| Tie::Handle::Filter | chunk_size=0    |    1500   |     0.67  |        550 |   1e-06   |      23 |
| PerlIO::via         | chunk_size=1    |    1700   |     0.59  |        630 |   4e-06   |      26 |
| raw                 | chunk_size=1    |    9100   |     0.11  |       3400 | 2.7e-07   |      20 |
| PerlIO::via         | chunk_size=0    |   13000   |     0.078 |       4800 | 1.1e-07   |      20 |
| raw                 | chunk_size=0    |   16000   |     0.062 |       5900 |   2e-07   |      22 |
+---------------------+-----------------+-----------+-----------+------------+-----------+---------+

Benchmark module startup overhead (bencher -m IOFilterModules::Writing --module-startup):


            

              
              
#table2#
+---------------------+------------------------------+--------------------+----------------+-----------+------------------------+------------+---------+---------+
| participant         | proc_private_dirty_size (MB) | proc_rss_size (MB) | proc_size (MB) | time (ms) | mod_overhead_time (ms) | vs_slowest |  errors | samples |
+---------------------+------------------------------+--------------------+----------------+-----------+------------------------+------------+---------+---------+
| Tie::Handle::Filter | 0.83                         | 4.2                | 16             |      20   |                   14.1 |        1   | 6.4e-05 |      20 |
| Text::OutputFilter  | 2.2                          | 5.5                | 23             |      12   |                    6.1 |        1.6 |   7e-05 |      20 |
| PerlIO::via::as_is  | 0.83                         | 4                  | 16             |       6.4 |                    0.5 |        3   | 2.6e-05 |      20 |
| perl -e1 (baseline) | 1.3                          | 4.6                | 16             |       5.9 |                    0   |        3.3 | 1.6e-05 |      20 |
+---------------------+------------------------------+--------------------+----------------+-----------+------------------------+------------+---------+---------+

To display as an interactive HTML table on a browser, you can add option --format html+datatables.

HOMEPAGE

Please visit the project's homepage at https://metacpan.org/release/Bencher-Scenarios-IOFilterModules.

SOURCE

Source repository is at https://github.com/perlancar/perl-Bencher-Scenarios-IOFilterModules.

BUGS

Please report any bugs or feature requests on the bugtracker website https://rt.cpan.org/Public/Dist/Display.html?Name=Bencher-Scenarios-IOFilterModules

When submitting a bug or request, please include a test-file or a patch to an existing test-file that illustrates the bug or desired feature.

SEE ALSO

AUTHOR

perlancar <perlancar@cpan.org>

COPYRIGHT AND LICENSE

This software is copyright (c) 2017 by perlancar@cpan.org.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.