33 lines
661 B
Perl
Executable File
33 lines
661 B
Perl
Executable File
#!/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, $/;
|
|
}
|