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

Previous message: [thread] [date] [author]
Next message: [thread] [date] [author]
To: <linux-audio-user@...>
Date: Monday, January 27, 2014 - 11:46 pm

On Mon, 27 Jan 2014 09:19:35 -0500,
Joe Hartley wrote :

> I have programmed in at least 2 dozen languages from assembly language

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@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__

_______________________________________________
Linux-audio-user mailing list
Linux-audio-user@lists.linuxaudio.org
http://lists.linuxaudio.org/listinfo/linux-audio-user

Previous message: [thread] [date] [author]
Next message: [thread] [date] [author]

Messages in current thread:
[LAU] Script to clean up Ardour unused files ?, jonetsu@teksavvy.com, (Sun Jan 26, 8:53 pm)
Re: [LAU] Script to clean up Ardour unused files ?, Paul Davis, (Sun Jan 26, 9:05 pm)
Re: [LAU] Script to clean up Ardour unused files ?, jonetsu@teksavvy.com, (Sun Jan 26, 9:46 pm)
Re: [LAU] Script to clean up Ardour unused files ?, Paul Davis, (Sun Jan 26, 10:18 pm)
Re: [LAU] Script to clean up Ardour unused files ?, drew Roberts, (Mon Jan 27, 3:44 pm)
Re: [LAU] Script to clean up Ardour unused files ?, jonetsu@teksavvy.com, (Wed Jan 29, 12:35 am)
Re: [LAU] Script to clean up Ardour unused files ?, Paul Davis, (Wed Jan 29, 12:54 am)
Re: [LAU] Script to clean up Ardour unused files ?, Fons Adriaensen, (Wed Jan 29, 1:25 am)
Re: [LAU] Script to clean up Ardour unused files ?, Paul Davis, (Wed Jan 29, 1:32 am)
Re: [LAU] Script to clean up Ardour unused files ?, Fons Adriaensen, (Wed Jan 29, 2:10 am)
Re: [LAU] Script to clean up Ardour unused files ?, Paul Davis, (Wed Jan 29, 2:21 am)
Re: [LAU] Script to clean up Ardour unused files ?, Lieven Moors, (Tue Feb 11, 9:49 pm)
Re: [LAU] Script to clean up Ardour unused files ?, Fons Adriaensen, (Tue Feb 11, 10:24 pm)
Re: [LAU] Script to clean up Ardour unused files ?, Fons Adriaensen, (Mon Jan 27, 10:47 am)
Re: [LAU] Script to clean up Ardour unused files ?, Arve Barsnes, (Mon Jan 27, 11:17 am)
Re: [LAU] Script to clean up Ardour unused files ?, Fons Adriaensen, (Mon Jan 27, 1:02 pm)
Re: [LAU] Script to clean up Ardour unused files ?, jonetsu@teksavvy.com, (Mon Jan 27, 12:40 am)
Re: [LAU] [Semi-OT] Re: Script to clean up Ardour unused fil..., jonetsu@teksavvy.com, (Mon Jan 27, 11:39 pm)
Re: [LAU] [Semi-OT] Re: Script to clean up Ardour unused fil..., jonetsu@teksavvy.com, (Mon Jan 27, 11:46 pm)
Re: [LAU] Script to clean up Ardour unused files ?, Bob van der Poel, (Sun Jan 26, 10:35 pm)
Re: [LAU] Script to clean up Ardour unused files ?, jonetsu@teksavvy.com, (Sun Jan 26, 8:57 pm)