in reply to Self-explanatory program of free will

Hmm, indeed Perl is very peculiar in its faculties. One can cleverly disguise a perl code for a plain text. Here, I've tried to spoil your obfuscation a bit. It ends up being just a couple statements. And the text that is getting printed is the result of substitution on the '$_' scalar. Since, $_ initially doesn't hold anything, by replacing '' (nothing) with ' you any point why program this can not start its run of lif', this text is saved in the '$_' variable, which you then output with the print; method. 
exit if  s//   you any point
why program this can not start
its run of lif/
and 
  print "$_" 
or 
  do'not print what it decides to thus giving us example of free will!
+'

[download]


_____________________ 
$"=q;grep;;$,=q"grep";for(`find . -name ".saves*~"`){s;$/;;;/(.*-(\d+)
+-.*)$/;
$_=["ps -e -o pid | "," $2 | "," -v "," "];`@$_`?{print"+ $1"}:{print"
+- $1"}&&`rm $1`;
print$\;}

[download]

Replies are listed 'Best First'.
Re: Re: Self-explanatory program of free will
by Courage (Parson) on Jun 11, 2002 at 14:28 UTC
    Indeed.

    And perl -MO=Deparse xx.pl for latest perl with second version of that program gives intresting result: 

    perl -MO=Deparse xx.pl
exit if s//   you any point\nwhy program this can not start\nits run o
+f lif/ and print $_ or do !print('it'->what('to'->decides('giving'->t
+hus('example'->us('free'->of('will'))))));
xx.pl syntax OK

    [download]
    :)

    Courage, the Cowardly Dog.
    PS. Something fishy is going on there, or my name is Vadim Konovalov. And it's not.

[reply]
[d/l]
[select]

In Section Obfuscated Code