Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Apologies to Joyce Kilmer

by clintp (Curate)
on Feb 03, 2001 at 03:27 UTC ( #56137=obfuscated: print w/ replies, xml ) Need Help??

'% * % % * % %<> * % ~ * % % * % * * % * * * % % * * % * % *<> * % ~ % % % * % * * * % * % % % % * % % % % % % * % % * % % * % % ^ * % % % % *[] % % * * % * * % % % % * % % % % % % * * % * * @ * @ % * % % % ^ % * % * % * * % % * % <> % % % % * % %() % % % * * * % % * % % * * % * * * * % * * % % * * * % * * * % % * % % *[]<> % % % % * % * * * % % *<> % * * % % % * * % * * * \ * %\ * * * %/ \ # % * * % % % *\ * /\ * *// % %\ <>\ // % %/ % \// % * % * * *\ \|| \ \/ / % %// \ \ *\ /<> %// %// % %<> * % * %\ \ | | ||// % || // \// % // * * * % %{} % * ----\ \ | / %||// / ---/ / * % % * % * *\ ____\ \| | / / / /----/ * % \ ----\ | / // / \ \ / /' =~m/(.*)/s;$_=$1; s![-\\|_/\s]!!g ;%e=('%',0, '^',132918, '~'=>18054, '@'=>19630, '*' =>0b01, '#'=>13099, '[]'=>4278, '<>'=>2307, '{}'=>9814, '()',2076); for $a(keys %e){$e{$a}= sprintf"%b" , $e{$a};} $y= qq{(}.join( '|',map "\Q$_\E" ,keys %e).qq{)};s/$y /$e{$1}/gex;print pack"B*",$_;
Bored in a meeting...

Comment on Apologies to Joyce Kilmer
Download Code
(redmist) Re: Apologies to Joyce Kilmer
by redmist (Deacon) on Feb 03, 2001 at 05:29 UTC
    I dunno, clint, that's a mighty fine program there. I would say that it rivals even the Southern Dogwood.

    redmist
    Silicon Cowboy
    redmist::webnode
      Thank you! *blush*

      The best part I haven't yet posted: the program which generates the code to begin with. :) It needs some cleaning up though.

Re: Apologies to Joyce Kilmer
by Anonymous Monk on Feb 08, 2001 at 04:03 UTC
    This thing sprang all kinds of gears when I ran it does it need editing?? Jeff
      You'll have to be a _little_ more specific. It's certainly for 5.6 only. (Some have suggested "require 5.6.0;" should be inserted but it messes with the lines. :) But otherwise its run fine on several ~5.6.x builds.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (9)
As of 2014-07-12 17:07 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    When choosing user names for websites, I prefer to use:








    Results (240 votes), past polls