I heart Perl

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
[download]

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

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"	[reply]
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! Read more... (957 Bytes) /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 +" );` [download]	[reply] [d/l] [select]
Re^2: I heart Perl by chargrill (Parson) on Feb 15, 2006 at 16:17 UTC
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. Read more... (2 kB) 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 +" );` [download]	[reply] [d/l] [select]
Re: I heart Perl by tweetiepooh (Hermit) on Feb 15, 2006 at 10:43 UTC
I like this. Shame there is no +++ vote. Read more... (390 Bytes)	[reply]