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 |
Back to
Obfuscated Code