Re^2: Pixel art

in reply to Re: Pixel art
in thread Pixel art

Your version of perl seems to believe that the s/// ends right before the qw`, which is wrong. The qw` is supposed to be inside the s///, that's why there's no need for a closing backtick. I must admit I have no idea why it doesn't work for you. I tested both the download link and the copy-paste with Strawberry Perl 5.14.2. Here is a (hopefully) more compatible version, thanks to Anonymous :

          $_='ope
   n    P+I0;priPnt
  (HP  PIS"\Ubm",pac
 kH"xP8Il2sK4Ia*(\u
 hH24PI)K*",74,1I2,2
4H,PHPIL32,1K,4,unIpa
cHk(PHPLu=>uc"Kp_/s[I^
-HjPH=PL0d7l3+iK?,v_r
kHoPH3[ParLue=anKzg%7=
uH)<=y;/_"P),LsortK{ope
 nH*S,">BHB  BL$0.bmPp"}
 gHrep{s/BN\  BLS/P\t/
  ;Hs/.\Bn  N  BP/\
   tH/,unBt N  BHil
  !sH/(.)B[^N  BH\h
  \JPHUb- BqO  H]/$
  1JP$H1/B}QO  H<0>
  )JAPH;#UNQ   HeaP|
  &J~~PH';s   H[A-R|
  &~J]|PHq###%jAPHeg
  ;my$JAPH=eval.'P/
  \MP@%J+P__H::$P/
   |MPTUJP  P___
   |MAPZX|
    \MPWY|
    |MAP|
     \MP|
     |Mw|
     |Mw/
     |M/
     |/
     '
[download]

If you're curious enough, you might try it. You may also try replacing eval with print, this should print some human-readable code to STDOUT.

Comment on Re^2: Pixel art Select or Download Code

Replies are listed 'Best First'.
Re^3: Pixel art by Anonymous Monk on May 19, 2012 at 22:47 UTC
Your version of perl seems to believe ... Perl versions before 5.14 do not have /r option on substitution operator ( s///r ) 5.6.0 s///egimosx 5.8.0 s///egimosx 5.10.0 s///msixpogce 5.12.0 s///msixpogce 5.14.0 s///msixpodualgcer 5.16.0 s///msixpodualgcer	[reply]
Re^4: Pixel art by Grimy (Pilgrim) on May 19, 2012 at 23:20 UTC
Oh yeah. That. /r is so immensely useful that I didn't remember it wasn't here in the first place. Well, problem soved, thanks a lot! I updated my previous node.	[reply]

In Section Obfuscated Code