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

hello world

by jbware (Chaplain)
 | Log in | Create a new user | The Monastery Gates | Super Search | 
 | Seekers of Perl Wisdom | Meditations | PerlMonks Discussion | 
 | Obfuscation | Reviews | Cool Uses For Perl | Perl News | Q&A | Tutorials | 
 | Poetry | Recent Threads | Newest Nodes | Donate | What's New | 

on Feb 15, 2004 at 21:08 UTC ( #329174=obfuscated: print w/ replies, xml ) Need Help??

package Earth;sub Greet{ %_=('Y','~');$_='$;=!(Middle Earth.age~~~<Eart~~~~~~~~~~~~~h .age)?!(defined$ti~~~~~~~~~~~mez~~~On e[2])?!(push@time~~~~~~~~~~~~~~~~Zone,loc ~altime())?rotation?~~~~~~~~~~~~~q~~?The Worl ~~d?:q:[\w]::q=[\~~~~~~~~~~~~~~~~~d~a-f]=:q?..~~ ~~~?:q:.:;"42b3d3~~~~~~~~~~~~~~~~~~~~~728656c6c6f6 ~~~~~0277f627c64672~~~~~~~~~~~~~~~~~~~~~b3072796e647 ~~~~~~~42b3b3rg7d"=Ym~~~~~~~~~~~~~~~~~~~\$;~~*\;p~~~~u ~~~~~~~~~sh@_,$&;bless~~~~~~~~~~~~~~~~~~~~~~~~~$c~~~~~~~ ~~~~~~~~~o~ntine~~~~~nt~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~s=\~~~~~~~$~~~~~~~~~~~~~~~~~~~~~~~pangaea~~~~ ~~~~~~~~~~~~~~~;{l~~~~~~~~~~~~~~~~~~~~~~~~~~~~ocal@_;local$; ~~~~~~~~~~~~~~~~~="o~~~~~~~~~~~~~~~~~~~~~~~~~cean";$^A=(defi ~~~~~~~~~~~~~~~~~~~n~~~~~~~~~~~~~~~~~~~~~~~~~ed$continents)? ~~~~~~~~~~~~~~~~~~~(vec(~~~~~~~~~~~~~~~~~~~~~~$;, YYsplit(\' ~~~~~~~~~~~~~~~~~\',${\$;}~~~~~~~~~~~~~~~~~~~~~~)%3,YYsplit( ~~~~~~~~~~~~~~~~q??,$;)**2-~~~~~~~~~~~~~~~~~~~~~~(($;=Ytr/oa ~~~~~~~~~~~~~~~~eiu//)**2))=~~~~~~~~~~~~~~~~~~~~~~=28160)?q: ~~~~~~~~~~~~~~~~~.::q?!?:\'?~~~~~~~~~~~~~~~~~~~~~~\';}$^A=Ys ~~~~~~~~~~~~~~~~:\Q.\E:pack(~~~~~~~~~~~~~~~~~~~~~~\'h*\',j ~~~~~~~~~~~~~~~~~oin(q(),~~~~~~~~~~~~~~~~~~~~~~~grep{$_= ~~~~~~~~~~~~~~~~~~Ym,$,,}~~~~~~~~~~~~~~~~~~~~~~~split(" ~~~~~~~~~~~~~~~~~",@_~~~~~~~~~~~~~~~~~~~~~~~~~~[0])) ~~~~~~~~~~~~~~~~):e~~~~~~~~~~~~~~~~~~~~~~~~~~~gexe ~~~~~~~~~~~~~~~;$d~~~~~~~~~~~~~~~~~~~~~~~~~~~="s ~~~~~~~~~~~~~~ort~~~~~~~~~~~~~~~~~~~~~~~~~~<= ~~~~~~~~~~~~>,~~~~~~~~~~~~~~~~~~~~~~~~~~YY ~~~~~~~~~~~@_~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~"~~~~~~~~~~~~~~~~~~~';; s,(~|\r|\n|\s),,g;s.Y.\x7e.g; eval};Greet;'the world';

Comment on hello world
Download Code
Re: hello world
by FordPrefect (Initiate) on Feb 16, 2004 at 09:06 UTC
    Wow, nice. I like.
Re: hello world
by pelagic (Curate) on Feb 16, 2004 at 09:11 UTC
    Well done, jbware!
    pelagic

    -------------------------------------
    I can resist anything but temptation.
Re: hello world
by Grygonos (Chaplain) on Feb 16, 2004 at 14:34 UTC
    Wow....just ... wow...you could make a poster out of that and sell quite a few i bet.

    Grygonos

      Nah, not a poster, a T-Shirt! ;)

      --
      b10m

      All code is usually tested, but rarely trusted.
        A T-Shirt of this would rock. And it'd save me the trouble of stapling multiple posters together to wear. :) Very cool script!
Re: hello world
by csuhockey3 (Curate) on Feb 16, 2004 at 19:33 UTC
    Wow -- that's unreal. Nice job!

    -CSUhockey3
Re: hello world
by makar (Novice) on Feb 17, 2004 at 04:53 UTC
    How mean, we beginners just figure out how to write the "hello world" script the normal way, and you come along as Mr. Fancypants and ruin our noobie fun! Thanks a lot!

    I kid of course, this is both a really cool script and a rather funny joke. Great work!
Re: hello world
by perliff (Scribe) on Apr 16, 2009 at 08:23 UTC
    mr. jbware... this has to be the most interesting hello world i have ever seen in years... uff.. you have made my day... i am not a "hello world" freak, in that i am almost sick to death of looking at language books writing this 2 word incantation (if you will).. but this work of art you have created... wunderbar!
    "with perl on my side"

Login:
Password
remember me
What's my password?
Create A New User

Node Status?
node history
Node Type: obfuscated [id://329174]
Approved by b10m
Front-paged by mpolo
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (25)
BrowserUk
Corion
GrandFather
Fletch
ysth
ww
FunkyMonk
holli
Gavin
kennethk
thezip
Eyck
pileofrogs
erix
SuicideJunkie
hominid
redlemon
meraxes
ahmad
ssandv
VinsWorldcom
thedoe
MikeDexter
cmg
brp4h
As of 2010-02-09 20:59 GMT
Sections?
The Monastery Gates
Seekers of Perl Wisdom
Meditations
PerlMonks Discussion
Categorized Q&A
Tutorials
Obfuscated Code
Perl Poetry
Cool Uses for Perl
Perl News
Information?
PerlMonks FAQ
Guide to the Monastery
What's New at PerlMonks
Voting/Experience System
Tutorials
Reviews
Library
Perl FAQs
Other Info Sources
Find Nodes?
Nodes You Wrote
Super Search
List Nodes By Users
Newest Nodes
Recently Active Threads
Selected Best Nodes
Best Nodes
Worst Nodes
Saints in our Book
Leftovers?
The St. Larry Wall Shrine
Offering Plate
Awards
Craft
Snippets Section
Code Catacombs
Quests
Editor Requests
Buy PerlMonks Gear
PerlMonks Merchandise
Planet Perl
Perlsphere
Use Perl
Perl.com
Perl 5 Wiki
Perl Jobs
Perl Mongers
Perl Directory
Perl documentation
CPAN
Random Node
Voting Booth?

What level of existential comfort do you require?

Palace
Executive suite at the best hotel
Regular hotel in a decent part of town
Motel
Boarding house
Sleeping Bag on Couch in Basement
Any port in a storm
Camping under the freeway overpass
Jail
Other

Results (279 votes), past polls