Re: I heart Perl

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!

$ perl -MO=Deparse valentine.pl
"Sh         ELoV\n   eSMeshEl     OvEsmeNO\n  tsHeloVeSM   EShELOVESm\
+n eNOTShEloVes mESheLovesMe\nnoTsHELovEsMESHelOVeSmEnotS\nHeLOVeSMESH
+ElOvESMENotSHeLo\n VesmEShELovEsmENOTsHELOVE\n  smEsHELOveSMeNoTshELO
+Ve\n   SmesHElOVesmEnOTSheLO\n    vEsMeshELoVESmEnoTS\n     HELOvEsM"
+ =~ /(((\w
      )\W*(?{$^R.(0+(
       q{a}lt$3))}))
        {8}(?{print
         +pack"B8"
          ,$^Rand
           ""}))
            +/x;
valentine.pl syntax OK
[download]

/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]

Comment on Re: I heart Perl Select or Download Code

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

Replies are listed 'Best First'.

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]