docker-buttbot/butt

#!/usr/bin/env perl
use strict;
use warnings;

BEGIN {
    use FindBin qw($RealBin);
    push @INC, $RealBin;
}
use Butts;

my $butt = $ARGV[0]         // "butt";
my $replace_freq = $ARGV[1] // (1/11);
my $debug = $ARGV[2]        // 0;

my $buttifier = Butts->new(meme         => $butt,
                           debug        => $debug,
                           replace_freq => $replace_freq);

print STDERR "$butt repeat rate is " . $buttifier->replace_freq . $/
  if $debug;

while(<STDIN>) {

    # The old way

    # chomp
    # print join(" ", $buttifier->buttify(split(/\s+/, $_)))."\n";

    # The new way

    print $buttifier->buttify_string, $/;
}