Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Semi-Colons

by leons (Pilgrim)
on Jan 18, 2001 at 17:27 UTC ( #52766=obfuscated: print w/ replies, xml ) Need Help??

I admit, the idea is pretty simple and maybe the thing is
a bit cheesy ... however, it looks pretty weird which
made me decide it was worthwile posting. I hope it proves
me right ;-)

#!/usr/bin/perl -w use strict;; ;; ;;;;;; ;; open A,$0;;; ;;;;;;;;;;;; ;;;;;;;;push @_,$_ while <A>;;;;;;;;; ;;;;;;;;;;;; print chr( y/;/;/ -3<0? ord' ':y/;// + ord '^' ) foreach "@_" =~/;[;\s]+/g ;;;;;;;;;;;; ;; ;;;;;; ;; push @_,$_;; push@_,$_;;; push @_,$_;; ;;;;;;;;;;;; ;;push @_,$_ ;;;;;;;;;;;; ;;;;;push @_ ,$_;;;;;;;;; ;;;;;;;;;;;; ;push@_,$_;; ;;;;;;;;push @_,$_;;;;;;; push @_,$_;; ;;;;;;;;;;;; ;;;;;;push@_ ,$_;;push@_, $_;;;;;;;;;; ;;;;;;;;push @_,$_;;;;;;; push@_,$_;;; ;;;;;;;;;;;; ;;;;;push @_ ,$_;;;;;;;;; ;;;;;push@_, $_;;push @_,$_;;; ;;; ;;;; push @_ , $_ ;;; push @_, $_ ;;;;; push @_, $_;;;;;; ;;; ;;;; push @_, $_;;;;;; ;push@_, $_;push @_,"\n"; ;;;;;;; ;;;;;;; ;;; ;; print pop@_


After posting this, I decided that it might look a bit
better when i'd turn the shape from a square to a couple
of semi-colons ... so that's exactly what I did
I'm terribly sorry for the guys who voted for it and who
think it became a piece of crap now ;-)

Comment on Semi-Colons
Download Code
Replies are listed 'Best First'.
Re: Semi-Colons
by turnstep (Parson) on Jan 19, 2001 at 05:52 UTC

    I actually almost posted something to the effect of "at least it isn't shaped into a giant ASCII semicolon." :) Very good effort, however. s/;;+/;/g; helps to decode this a bit. :)

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (10)
As of 2015-07-31 04:38 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (274 votes), past polls