Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
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
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 romping around the Monastery: (10)
As of 2014-08-22 01:26 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (145 votes), past polls