<commit_before>#! /usr/bin/env perl
#
# Short description for benchmark-perl.pl
#
# Version 0.0.1
# Copyright (C) 2022 <NAME> < https://www.shlomifish.org/ >
#
# Licensed under the terms of the MIT license.

use strict;
use warnings;
use 5.014;
use autodie;

use Carp qw/ confess /;
use Getopt::Long qw/ GetOptions /;
use Path::Tiny qw/ cwd path tempdir tempfile /;
use Docker::CLI::Wrapper::Container v0.0.4 ();

sub do_system
{
    my ( $self, $args ) = @_;

    my $cmd = $args->{cmd};
    print "Running [@$cmd]\n";
    if (0)    # system(@$cmd) >> 1 )
    {
        die "Running [@$cmd] failed!";
    }

    return;
}

sub run
{
    my $output_fn;

    my $obj = Docker::CLI::Wrapper::Container->new(
        { container => "rinutils--deb--test-build", sys => "debian:sid", } );

    GetOptions( "output|o=s" => \$output_fn, )
        or die "errror in cmdline args: $!";

    if ( !defined($output_fn) )
    {
        #        die "Output filename not specified! Use the -o|--output flag!";
    }
    foreach my $deal ( 1 .. 20 )
    {
        print "$deal\n";

        # $obj->do_system(
        __PACKAGE__->do_system(
            {
                cmd => [
qq#make_pysol_freecell_board.py -F -t "$deal" black_hole | black-hole-solve - > "$deal".results.txt#

                ]<commit_msg>obvious fix<commit_after>#! /usr/bin/env perl
#
# Short description for benchmark-perl.pl
#
# Version 0.0.1
# Copyright (C) 2022 <NAME> < https://www.shlomifish.org/ >
#
# Licensed under the terms of the MIT license.

use strict;
use warnings;
use 5.014;
use autodie;

use Carp qw/ confess /;
use Getopt::Long qw/ GetOptions /;
use Path::Tiny qw/ cwd path tempdir tempfile /;
use Docker::CLI::Wrapper::Container v0.0.4 ();

sub do_system
{
    my ( $self, $args ) = @_;

    my $cmd = $args->{cmd};
    print "Running [@$cmd]\n";
    if ( system(@$cmd) )
    {
        # die "Running [@$cmd] failed!";
    }

    return;
}

sub run
{
    my $output_fn;

    my $obj = Docker::CLI::Wrapper::Container->new(
        { container => "rinutils--deb--test-build", sys => "debian:sid", } );

    GetOptions( "output|o=s" => \$output_fn, )
        or die "errror in cmdline args: $!";

    if ( !defined($output_fn) )
    {
        #        die "Output filename not specified! Use the -o|--output flag!";
    }
    foreach my $deal ( 1 .. 20 )
    {
        print "$deal\n";

        # $obj->do_system(
        __PACKAGE__->do_system(
            {
                cmd => [
qq#make_pysol_freecell_board.py -F -t "$deal" black_hole | black-hole-solve - > "$deal".results.txt#

                ]
{'fraction_non_alphanumeric': 0.16847405112316033, 'fraction_numerical': 0.013942680092951201, 'mean_word_length': 2.282083862770013, 'pattern_counts': {'":': 0, '<': 7, '<?xml version=': 0, '>': 27, 'https://': 2, 'lorem ipsum': 0, 'www.': 2, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '5100219', 'n_tokens_mistral': 993, 'n_tokens_neox': 924, 'n_words': 231}