Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

Re: Blinking a row

by jonadab (Parson)
on Sep 10, 2003 at 02:42 UTC ( [id://290278]=note: print w/replies, xml ) Need Help??


in reply to Re: Blinking a row
in thread Blinking a row

Hey, I just remembered how I used to blink a row in Applesoft BASIC. I think I can emulate that effect in Perl... 

sub blinkrow {
  my ($rowtext) = @_;
  while (1) {
    print$/x60;sleep 1;
    print "$rowtext\n"; sleep 1;
  }
}

[download]

HTH.HAND.

$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/

[download]

Replies are listed 'Best First'.
Re: Re: Blinking a row
by tachyon (Chancellor) on Sep 10, 2003 at 04:09 UTC

    The \r carriage return is useful for incrementing counters but can also do blink - If you have to! A reasonable purpose would be say if the nuclear reactor powering you computer is in danger of a China Syndrome meltdown due to problems with the heavy water supply from your municipal authority.... 

    do{ print 0==$a++%2 ?"Core Meltdown!\r" : "              \r"; sleep 1}
+ while 1;

    [download]

    cheers

    tachyon

    s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://290278]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others pondering the Monastery: (5)
As of 2024-04-16 04:19 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found