Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

cgi quine

by jonadab (Parson)
on Mar 09, 2003 at 18:15 UTC ( [id://241590]=obfuscated: print w/replies, xml ) Need Help??

Not really obfuscated per se, but it sure doesn't belong in any of the other categories, so... here is my first Perl quine that doesn't cheat by reading its own source code:

#!/usr/bin/perl
$p='$q=chr(39);$t=chr(34);$h="Content-type: text/html\n\n<h"
."tml><head><title>$0</title></head><body><pre>#!/usr/bin/p"
."erl\n\$p=$q";$_=$p;$\="$q;eval\$p;</pre></body></html>$/";
s/&/&amp;/g;s/</&lt;/g;s/>/&gt;/g;s/$q/&#39;/g;s/$t/&quot;/g
;print$h.$_;';eval$p;

[download]

Back to Obfuscated Code

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: obfuscated [id://241590]
Approved by mowgli
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others learning in the Monastery: (4)
As of 2024-04-25 15:18 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found