Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Re: Self-explanatory program of free will

by vladb (Vicar)
on Jun 11, 2002 at 14:18 UTC ( #173480=note: print w/ replies, xml ) Need Help??


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! +'


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


Comment on Re: Self-explanatory program of free will
Select or Download Code
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
    :)

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

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://173480]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (3)
As of 2015-07-04 05:20 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (57 votes), past polls