Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Re^7: What does $_ = qq~"$_"~ do?

by shmem (Chancellor)
on May 29, 2019 at 00:02 UTC ( [id://11100677]=note: print w/replies, xml ) Need Help??


in reply to Re^6: What does $_ = qq~"$_"~ do?
in thread What does $_ = qq~"$_"~ do?

an even weirder example

In the meantime, there's this message from Dave Mitchell available for studying on the fun-with-perl mailing list:

Dave Mitchell Tue, 19 Sep 2006 17:53:37 -0700 I believe the following is a genuine, punctuation-free Quine: s zzs vvxv and s ZVZchr 122Zie and s ZVZchr 122Zie and s ZVZchr 122Zie and s SxSlcfirstSe and s YZZxZYvvxvYi and print z and s ZVZchr 122Zie and s ZVZchr 122Zie and s ZVZchr 122Zie and s SxSlcfirstSe and s YZZxZYvvxvYi and print -- A walk of a thousand miles begins with a single step... then continues for another 1,999,999 or so.
perl -le'print map{pack c,($-++?1:13)+ord}split//,ESEL'

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others avoiding work at the Monastery: (3)
As of 2024-04-24 06:20 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found