Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical

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

Replies are listed 'Best First'.
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


    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

    $/ = 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 :)

      $/ = 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 (Hermit) on Feb 15, 2006 at 10:43 UTC
    I like this. Shame there is no +++ vote.

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (4)
As of 2020-09-28 03:56 GMT
Find Nodes?
    Voting Booth?
    If at first I donít succeed, I Ö

    Results (143 votes). Check out past polls.