Displaying posts tagged with


Today’s mischief – ROMAN DEATH!

Today’s mischief is brought to you by the line-noise that you can compile: Perl! You can add this code ANYWHERE in an executing perl stack. (a module, a referenced library, an inherited base class, etc) Then at any point the perl application warns() or dies() and shows the accompanying error, the line number is shown […]

Saw this one today

BEGIN{$^H {q}=sub:{my$ my=$ _[1];$ my!~ /\$/?$ my:sub: {my% my=@_;(my$ my=$ my)=~s ‘\$(\w+)’$ my{$ 1}’eg;$ my}};$ ^H |=0x28000} ‘The quick blue fox $action over the lazy dog.’->(action => ‘jumps’) The code returns: The quick blue fox jumps over the lazy dog. Awesome and painful at the same time.


Ok. So Perl has a remarkably plastic synax that allows you to “think” (IE: code in) the syntaxes of C, awk, shell, FORMs and a few other things. It’s a subtle thing, but incredibly useful for people who just want to get things done. The wide variety of acceptable syntaxes can give some language purists […]

Monday Morning JAPH

I’m sharpening up the old coding skills by writing a JAPH as I do other work. It’s surprising how much you learn about exact syntax doing this. I think I’m going to start writing one weekly. It’s been 5 years since I did my last ones. This one passes strict and utilizes source text from […]