Amazing, huh?

do{print("\ecGo\n o \n<|>\n<`>\n");sleep(1);print("\ecPerl!
\\O/\n | \n/`\\\n");sleep(1);print("\ecGo\n ^>\n(| \n<`\\\n");
sleep(1);print("\ecPer^!\n\ O/\n(| \n >\\\n");sleep(1)}while(1)
[download]

Comment on Amazing, huh? Download Code

Replies are listed 'Best First'.
Re: Amazing, huh? by cog (Parson) on Mar 29, 2005 at 14:21 UTC
I wouldn't say "Amazing", but it's pretty darn cool! Great! :-) I think I'll keep it running time and time again ;-) (hum... this gives me an idea...)	[reply]
Re: Amazing, huh? by holli (Abbot) on Mar 29, 2005 at 15:37 UTC
doesn't work for me (no output, no error) at Perl 5.8.4/WinXP. holli, /regexed monk/	[reply] [d/l]
Re^2: Amazing, huh? by dna (Beadle) on Mar 29, 2005 at 15:55 UTC
I think it's the '\ec'-sequence (which clears the screen) that MS Windows has a problem with, but I don't know. As cog pointed out, 'amazing' might be the wrong word to describe the code, so you aren't missing out on anything special :).	[reply]