Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Audible Code Separator

by rob_au (Abbot)
on Apr 07, 2003 at 13:42 UTC ( #248592=obfuscated: print w/ replies, xml ) Need Help??

Following on from a discussion about token separation in Python today, one of my colleagues put forward the idea of employing the ASCII bell character (^G) to be used for token separation within Perl scripts. Not one to be encouraged, I have written the following code which does just that, employs the ASCII bell character for token separation within Perl scripts.

#!/usr/bin/perl BEGIN{local$/;open+F,$0;$_=<F>;tr/\007/;/;s/(?!:\n)BEGIN{[^\n]+}(?!:\n +)//;eval;exit} use strict^G my @array = ( 'Hello', 'World!' )^G print "@array\n"^G exit 0^G
While not a replacement for Filter::Simple, this code does provide a working proof-of-concept and offers yet another way by which I can have fun with my colleagues during code reviews :-)

 

perl -le 'print+unpack("N",pack("B32","00000000000000000000001001000110"))'

Comment on Audible Code Separator
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://248592]
Approved by diotalevi
Front-paged by diotalevi
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (6)
As of 2014-11-25 02:17 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (148 votes), past polls