Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re: Format quine (slightly obfu)

by pmonk4ever (Friar)
on Dec 03, 2009 at 18:08 UTC ( #810900=note: print w/replies, xml ) Server Error (Error ID 7966408a48452)

An error has occurred. The site administrators have been notified of the problem and will likely soon fix it. We thank you, for you're patients.

Need Help??


in reply to Format quine (slightly obfu)

bv,

Ok, the output I get in Windoze Perl 5.10.0 is that the file prints. Is that correct?

I'd think not, based on the format it= line. I have just begun to peruse these delightful nodes and can get some of them to run ok here at $work, but it's clear that I'll have to run some of these @ $home to get the full effect!

Thanks for the fun code!

pmonk4ever

"No trees were harmed in the creation of this node. However, a rather large number of electrons were somewhat inconvenienced."

Replies are listed 'Best First'.
Re^2: Format quine (slightly obfu)
by bv (Friar) on Dec 04, 2009 at 00:13 UTC

    Thank you! You're correct in that it prints out itself. It's not strictly a true quine, since it reads in its own file, but fun nonetheless. Read on for a breakdown of how it works:

    Hope that helps!


    @_=qw; Just another Perl hacker,; ;$_=q=print "@_"= and eval;

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (8)
As of 2016-08-29 20:42 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    The best thing I ever won in a lottery was:















    Results (409 votes). Check out past polls.