X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: fd588,7ad72948312cb279 X-Google-Attributes: gidfd588,public X-Google-Thread: fa0ae,85d37e30d034d7ec X-Google-Attributes: gidfa0ae,public From: tjla@guvfybir.qlaqaf.bet (Gwyn Judd) Subject: Re: Please wait... [was: Perl - Blinking Text] Date: 2000/08/24 Message-ID: #1/1 X-Deja-AN: 661956653 References: <20000815111353.00174.00003174@ng-ch1.aol.com> <967117675.6043@itz.pp.sci.fi> X-Complaints-To: newsadmin@xtra.co.nz X-Trace: news.xtra.co.nz 967125475 210.55.45.80 (Fri, 25 Aug 2000 01:57:55 NZST) Organization: World Center for Flux Capacitor Research User-Agent: slrn/0.9.6.2 (Linux) NNTP-Posting-Date: Fri, 25 Aug 2000 01:57:55 NZST Newsgroups: comp.lang.perl.misc,alt.ascii-art.animation I was shocked! How could Ilmari Karonen say such a terrible thing: >Twirling batons are rather cliche, though. If you're going to have >your users staring at a "please wait" message, the least you could do >is make it a little bit interesting. > > 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 :) -- Gwyn Judd (print `echo 'tjla@guvfybir.qlaqaf.bet' | rot13`) Boob's Law: You always find something in the last place you look.