Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

I heart Perl

by japhy (Canon)
on Feb 14, 2006 at 14:36 UTC ( #530128=obfuscated: print w/ replies, xml ) Need Help??

Because it's Valentine's Day and all.
q'Sh ELoV eSMeshEl OvEsmeNO tsHeloVeSM EShELOVESm eNOTShEloVes mESheLovesMe noTsHELovEsMESHelOVeSmEnotS HeLOVeSMESHElOvESMENotSHeLo VesmEShELovEsmENOTsHELOVE smEsHELOveSMeNoTshELOVe SmesHElOVesmEnOTSheLO vEsMeshELoVESmEnoTS HELOvEsM'=~/(((\w )\W*(?{$^R.(0+( q{a}lt$3))})) {8}(?{print +pack"B8" ,$^Rand ""})) +/x

Jeff japhy Pinyan, P.L., P.M., P.O.D, X.S.: Perl, regex, and perl hacker
How can we ever be the sold short or the cheated, we who for every service have long ago been overpaid? ~~ Meister Eckhart

Comment on I heart Perl
Download Code
Re: I heart Perl
by liverpole (Monsignor) on Feb 14, 2006 at 15:32 UTC
    I am   l i v e r p o l e , and I approve of this message.

    Update:  Perhaps some clarification is necessary.  A short time ago, japhy responded to this obfuscation of mine, because it contained his name in the title.  As this node's title "contains" my name, albeit in an obfuscated way, I am returning the favor.  ;-)


    @ARGV=split//,"/:L"; map{print substr crypt($_,ord pop),2,3}qw"PerlyouC READPIPE provides"
Re: I heart Perl
by chargrill (Parson) on Feb 14, 2006 at 23:37 UTC

    Beautiful!

    And because it's only one statement (one 'variable' plus a wicked /x'd regex) perl -MO=Deparse doesn't even begin to shed any light on this!

    /me waits for the vote fairy to give him some more votes this evening



    --chargrill
    $/ = q#(\w)# ; sub sig { print scalar reverse join ' ', @_ } + sig map { s$\$/\$/$\$2\$1$g && $_ } split( ' ', ",erckha rlPe erthnoa stJu +" );

      I'm still puzzling through how japhy got from perlre's definition of (?{ ... }) to his use of it... but I can at least demonstrate what's happening.

      Very nice! This will certainly inspire me to wrap my head around this use of (?{...}) a bit better. Or a lot better :)



      --chargrill
      $/ = q#(\w)# ; sub sig { print scalar reverse join ' ', @_ } + sig map { s$\$/\$/$\$2\$1$g && $_ } split( ' ', ",erckha rlPe erthnoa stJu +" );
Re: I heart Perl
by tweetiepooh (Friar) on Feb 15, 2006 at 10:43 UTC
    I like this. Shame there is no +++ vote.

Log In?
Username:
Password:

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

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

    My favorite cookbook is:










    Results (29 votes), past polls