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

Variations on substr (2)

by BooK (Curate)
on May 08, 2002 at 10:30 UTC ( [id://164973]=obfuscated: print w/replies, xml ) Need Help??

This is a little harder to understand... ;-)

$|++;$.="Just another Perl hacker ";while(!select $',$&,$`,1/200){(*_,*")=\(substr($.,0,1),substr$. ,1,$,++%27);print+qq'\r$"';$..=chop}#Try 24,25,26

Replies are listed 'Best First'.
(Solution?) Re: Variations on substr (2)
by Dog and Pony (Priest) on May 11, 2002 at 16:42 UTC
    Very nice effect! I just had to take a stab at this one... and here it is:

    Disclaimer: I might be using the terminology for references and/or typeglobs wrongly here, please correct me if that is the case.

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others goofing around in the Monastery: (3)
As of 2025-06-14 19:58 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?
    erzuuliAnonymous Monks are no longer allowed to use Super Search, due to an excessive use of this resource by robots.