$|=1;@_=<DATA>;@_=($_[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

[download]

Replies are listed 'Best First'.
Re: Happy New Year!
by jdalbec (Deacon) on Jan 01, 2006 at 18:10 UTC
    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!
...

    [download]
    If I run it in an X11 xterm window, I get: 
    Happy     Year!
      New      
      New      
Happy     Year!
Happy     Year!
      New      
      New      
Happy     Year!
...

    [download]
    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

    [download]
    and 
          New      
Happy     Year!

    [download]
    in the top left corner). Is my suspicion correct?
[reply]
[d/l]
[select]
Re: Happy New Year!
by TedPride (Priest) on Jan 02, 2006 at 09:26 UTC
    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.

[reply]
      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.

[reply]
A reply falls below the community's threshold of quality. You may see it by logging in.

Back to Obfuscated Code