|Perl Monk, Perl Meditation|
sharky.pl - infoby xtype (Deacon)
|on Feb 13, 2002 at 06:53 UTC||Need Help??|
I got this idea from playing with gmax's camelfilter code.
Actually, I decided to post the code with which I created my original idea. My original ascii art obfuscation is nifty in and of itself. However. this way everyone gets the two-for-one deal. (roll your own!) Also, I figured that no one would have their code view set that wide (106) so I wanted something narrower (this) to print it.
So here you go, turn any code snippet into instant obfu/ascii-art!
If a pattern file is not specified it attempts to read itself as the model.
If you wish to use the shark art remove the usage and shebang (passing Getopt and strict on the command line).
The very least you will want to do is pass it a file containing some perl (with -c).
It worked on everything I ran it against however, I am sure that in some cases tweaking of the input code will be required.
Besides itself and the XTYPE obfu (now posted bellow), one of my favorite tests was a DNA strand using theorbtwo's dnareader. Worked out of the box! A link to an ascii art generator can be found at crazyinsomniac's homenode.
And yes, sharky printed itself.
I was about to post the plain code but thought it would be nicer if it generated itself.
...plus I needed an excuse for naming it sharky. ;^)
Update: I did away with creating a "pattern" variable (ie. S7F12:.. as per camelfilter.pl), and instead read the pattern file and create the output all in the same loop. Making it a lot shorter and faster. Although it no longer has a default "pattern" it will attempt to read itself if opt_p is undefined. I posted the original Obfuscated ASCII-art code (that sharky.pl used to print by default) in reply, since that was the reason for me noding this.
Perhaps this should be in Craft now that the obfuscation has been removed from it? -oh well.