Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
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 wandering the Monastery: (9)
As of 2014-12-25 03:12 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (159 votes), past polls