Happy New Year!
$|=1;@_=;@_=($_[0].$_[1],$_[1].$_[0]
);for(20051231..20060101){print$_[0];sleep
1;print"\010"x length($_[0]);print$_[1];
sleep 1;print"\010"x length($_[1]);}
__DATA__
Happy Year!
New
Re: Happy New Year!
created: 2006-01-01 13:10:25
If I run this in Mac OS X Terminal, I get:
Happy Year!
New New
Happy Year! Happy Year!
New New
Happy Year! Happy Year!
...
If I run it in an X11 xterm window, I get:
Happy Year!
New
New
Happy Year!
Happy Year!
New
New
Happy Year!
...
If I pipe it to "vi" (actually vim 6.2 here), I get the blink effect I suspect you were looking for (alternating
Happy Year!
New
and
New
Happy Year!
in the top left corner). Is my suspicion correct?
Re: Happy New Year!
created: 2006-01-02 04:26:06
So the backspace character doesn't work under some operating systems? ikegami suggested using it in a different thread, so I assumed it was universal.
This worked fine under Mac OS 9.
Re^2: Happy New Year!
created: 2006-01-02 11:31:26
If you mean Re: Creating a Sparkle in perl, that's a 1-character "sparkle". You start getting unpredictable behavior when you add newlines to the mix. You might try looking into ANSI cursor positioning codes, although I don't know whether those would work in Mac OS 9. Are you running Perl under MPW?
Obfuscated Perl is like Java - write once, test everywhere.
Re: Happy New Year!
created: 2006-01-03 01:39:42
Hi
I have removed added a newline Infront of New If that is the ase it is printing only the following
$|=1;@_=;@_=($_[0].$_[1],$_[1].$_[0]
);for(20051231..20060101){print$_[0];sleep
1;print"\010"x length($_[0]);print$_[1];
sleep 1;print"\010"x length($_[1]);}
__DATA__
Happy Year!
New
Happy Year! Happy Year! Happy Year! Happy Year! Happy Year! Happy Year! Happy Year!Why can't you Handle that.
"Keep pouring your ideas"