[LAU] [Semi-OT] Re: Script to clean up Ardour unused files ?

[jonetsu at teksavvy.com]

On Mon, 27 Jan 2014 09:19:35 -0500,
Joe Hartley <jh at brainiac.com> wrote :

> I have programmed in at least 2 dozen languages from assembly language
> to FORTRAN to C and C++, and scripting languages like Python, Bash
> and Tcl. Nothing scares me more than having to dive into a Perl
> script.

Then here are three examples to entertain your enjoyment.  And no,
don't ask me how.

1) prints 'just another perl hacker'

#!/usr/bin/perl

($_='kkvvttuu bbooppuuiiffss qqffssmm iibbddllffss')=~y~b-v~a-z~s; print


2) prints 'Perl is simple!'

#!/usr/bin/perl -w

 length q caller vec and print chr oct ord q qx eq and print chr ord q
 ref or and print chr ord q or no and print chr ord q else and print
 chr ord qq q q and print chr ord q tie gt and print chr ord qw q sin
 q and print chr ord q q eq and print chr ord qw q sin q and print chr
 ord q sin s and print chr ord q cmp lc and print chr ord q split s
 and print chr ord qw q lc q and print chr ord q ne sin and print chr
 hex length q q bless localtime ref q


3) This one prints pre-defined strings chosen randomly

#!/usr/bin/perl
use strict;
                         $_=q`seek(D
                    ATA,30,0);local$/;$_=<
                DATA>;/8{6}(.*)8{6}/s;($a=$1)
              =~s/\s+(8+\s+)*//g;$a=~s/X/\040/g
            ;my at eight=split/888/,$a;@eight=split/
           8/,$eight[rand(20)];s/(\s+88\s*(8?88)?\
           s+)/$b=int((length($1)-length($eight[0]
          ))\/2);sprintf("%-".length($1)."s","\040"
         x$b.shift(@eight)         )/eg;print;"88888
        888888X8Outlook8    88888    Good8888Outlook8
        NotXSo8Good8888    88   88    MyXReply8IsXNo8
        888Don't8Count8     88888     OnXIt8888YouXMa
        y8RelyXOnXIt888    88   88    8Ask8Again8Late
        r8888Most8Likely    88888    8888Cannot8Predi
         ct8Now8888X8Yes88         88Yes8Definitely8
          888Better8NotXXTell8YouXNow8888ItXIs8Cert
           ain8888Very8Doubtful8888ItXIs8Decidedly
           8So8888Concentrate8and8Ask8Again8888Sig
            ns8Point8ToXYes8888MyXSources8SayXNo8
              888Without8a8Doubt888Reply8Hazy,8
                 Try8Again8888AsXIXSee8It,XY
                   es888888"`;s/\s//g;eval
                          ;__DATA__