Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses


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 ;-)

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?

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://52766]
Approved by root
[Discipulus]: choroba i made you Bishop !!
[choroba]: 9999 points until level 23 - Archbishop.
[LanX]: darn trying to downvote him again fails ... ;-P
[Discipulus]: congrats!
[LanX]: His Excelleny Choroba will now nbe clothed in his new robe ...
[Discipulus]: bishop ship sheeps in the shop..
[1nickt]: Discipulus too easy!
[1nickt]: "The sixth sheik's sixth sheep's sick" (if you are after 'sh' tongue twisters)
[Discipulus]: ok try it in Eatalian ;=)
[Eily]: Discipulus I don't suppose you can do the same for me can you ? :P

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (11)
As of 2017-09-26 12:00 GMT
Find Nodes?
    Voting Booth?
    During the recent solar eclipse, I:

    Results (294 votes). Check out past polls.