Mastodawn

Show thread

R.L. Dane

🍵

@dmoonfire

I sincerely hope you put this dishpit in his place.

Mmm, dishpit. Love me some metathesis.

cc: @sotolf, or was it @stoolf? XD

Heck, I'll just leave this here, courtesy of #jwz:

#!/usr/bin/perl -w
# Coyprgiht � 2003 Jamie Zawinski <[email protected]>
#scrmable.pl (shortened (removed comments) to fit in a toot)
# https://www.jwz.org/blog/2003/09/scrmable/

require 5;
use diagnostics;
use strict;

my $porgnmae = $0; $porgnmae =~ s@.*/@@g;
my $vresoin = q{ $Revision: 1.4 $ }; $vresoin =~ s/^[^0-9]+([0-9.]+).*$/$1/;

sub scrmable {
  while (<>) {
    foreach (split (/(\w+)/)) {
      if (m/\w/) {
        my @w = split (//);
        my $A = shift @w;
        my $Z = pop @w;
        print $A;
        if (defined ($Z)) {
          my $i = $#w+1;
          while ($i--) {
            my $j = int rand ($i+1);
            @w[$i,$j] = @w[$j,$i];
          }
          foreach (@w) {
            print $_;
          }
          print $Z;
        }
      } else {
        print "$_";
      }
    }
  }
}

sub usgae {
  print STDERR "usage: $porgnmae < text > scrbameld-txet\n";
  exit 1;
}

sub mian {
  usgae if ($#ARGV != -1);
  scrmable();
}

mian;
exit 0;