Select Code to Download

$ ./op_bench1.pl
Missing right curly or square bracket at ./op_bench1.pl line 121, at e
+nd of line
syntax error at ./op_bench1.pl line 121, at EOF
Execution of ./op_bench1.pl aborted due to compilation errors.

    return;
}

$ ./op_bench1_mod1.pl
Test
...
----------------------------------------
Bench (Length: 210)
========================================

use strict;
use warnings;

#use v5.38;

$ ./op_bench1_mod2.pl
Illegal character in prototype for main::net1 : $rstr, $out_fh = *STDO
+UT at ./op_bench1_mod2.pl line 48.
...
Global symbol "$rstr" requires explicit package name (did you forget t
+o declare "my $rstr"?) at ./op_bench1_mod2.pl line 90.
Global symbol "$out_fh" requires explicit package name (did you forget
+ to declare "my $out_fh"?) at ./op_bench1_mod2.pl line 92.
./op_bench1_mod2.pl has too many errors.

#use v5.38;
use strict;
use warnings;
use feature qw|say|;

use v5.34;
use warnings;
use experimental 'signatures';

my @bench_names = qw{net1 net2 hau1 ner1 ner2 kco1 kco2 kco3};

my @bench_names = qw{net1 net2 hau1 ner1 ner2 kco1 kco2 net3};

sub kco3 ($rstr, $out_fh = *STDOUT) {
    my $str = $$rstr;
...
    return;
}

sub net3 ($rstr, $out_fh = *STDOUT) {
    my $str = $$rstr;
...

    return;
}

$ ./op_bench1_mod3.pl
Test
...
ner1 31.4/s  64%  25%  15%  10%   4%   0%   --  -2%
kco2 32.0/s  68%  28%  18%  12%   6%   2%   2%   --
----------------------------------------

#!/usr/bin/env perl

...

    return;
}