Re: Please wait... [was: Perl - Blinking Text]

In article <slr...@thislove.dyndns.org>, Gwyn Judd wrote:
>I was shocked! How could Ilmari Karonen <ilt...@sci.invalid>
>say such a terrible thing:
>>
>>  perl -e '$|=1; print "\rPlease wait", grep tr/01/ ./ => unpack "b*"
>>	   => pack "v" => $i while ++$i and sleep 1'
>>
>>  perl -e '$|=1; print "\rPlease wait", grep tr/01/ ./ => unpack "b*"
>>	   => pack "v" => $i^$i/2 while ++$i and sleep 1'
>
>rand $i makes a nice effect too :)

A bit too, well, random for my taste.  $i^$i/4 looks somewhat less
repetitive than the above two, yet sufficiently ordered that one could
probably stare at it quite some time trying to figure out the pattern.

Another somewhat simpler looking animation I came up with is:

  perl -e '$i=$|=1; print "\rPlease wait", grep tr/01/ ./ =>
           unpack "b*" => pack "V" => $i^=$i<<1 while sleep 1'

-- 
Ilmari Karonen - http://www.sci.fi/~iltzu/
"True, but the user receiving the e-mailed password might think
 'Strange, I don't remember choosing "&\xe7?\x9b\x3f\t\xef\xb7"
 as my password, and how do I type it?'"  -- Keith C. Ivey

Related ASCII art in the Gallery

Explore these categories from our collection of 11,000+ artworks:

  ,  ,  , , ,
 <(__)> | | |
 | \/ | \_|_/
 \^  ^/   |
 /\--/\  /|
/  \/  \/jgs

     /| __________
O|==|* >__________>
     \|

(    )
|\^^/|
(0::0)
 \\// 
 (oo) 
/ \/ \

(\  _  /)
( \( )/ )
(       )
 `>   <' 
 /     \ 
 `-._.-' 

(‘-‘)

   _
 _(_)_
(_)@(_)
  (_)\
     |
    \|/
  \\\|//jgs
^^^^^^^^^^^

Make your own ASCII art

Turn images, text or 3D into ASCII, or draw your own – right in your browser.