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"))'
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|